home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / entries < prev    next >
Text File  |  1995-03-31  |  469KB  |  17,686 lines
  1. BEGIN_DOC entries.doc
  2. *********************** 19.09.1992 ********************************************
  3.  
  4. This list has all the points listed in previous lists (In seq.uncwil.edu).
  5. They were gathered by:
  6.  
  7. Jan Brittenson
  8. Rick Grevelle
  9. Jim Cloos
  10. Paul Dale
  11. Derek Nickel
  12. Poul-Henning Kamp
  13. Harry Herman
  14. J. Horn
  15.  
  16. This file includes:
  17.  
  18. ENTRIES.TXT
  19.  
  20. A large collection of ROM entries. Some are documented, some aren't.
  21. The supported ones (the ones in ENTRIES.A) are marked with HP:
  22. Others are unsupported and may work in rev E only.
  23.  
  24. ENTRIES2.A
  25.  
  26. A list of (mostly) unsupported entries usable by the rpl tools package.
  27. To use it you have 2 choices:
  28. 1) Append the file to ENTRIES.A and compile the file to get a new ENTRIES.O
  29. 2) Compile the file as is and use "SEARCH ENTRIES2.O.." right after the usual
  30.   "SEARCH ENTRIES.O"...
  31. Compiling is done in both cases by "SASM ENTRIES[2].A"
  32.  
  33. The entries are marked in ENTRIES.TXT with a NS: header. I will not change
  34. those names in any possible later versions, but I'm likely to add some more
  35. useful ones.
  36. entries2.a has many of the entries missing from the entries.a file. Namely
  37. complex number calculations, matrix operations etc.
  38. I have given some supported ones new names too to simplify programming.
  39. Most notably those thinking in hex might like the ##1,##2...##F definitions
  40. for ONE,TWO...FIFTEEN etc. (#1 does not work with rpltools, but would work
  41. with rpl library.)
  42. See entries.txt for possible docs/stack diagrams etc for the entry.
  43.  
  44.  
  45. RUNTHREAD
  46.  
  47. A simple rpl/machine language disassembler (Unix) that uses ENTRIES.TXT for
  48. comments/command names. Uncompress disass.uue and then disass.zip to get
  49. more information. Disassembles memory and ordinary HP48 files.
  50.  
  51.  
  52. Some more details about entries.txt:
  53.  
  54. Some entries have weird names because I have assigned all entries that I've
  55. studied a name to prevent disassembing them again. After all nights hacking
  56. I may have lacked the inspiration too though ;)
  57. I do not guarantee not changing any of the names (except HP: and NS: ones)
  58. in possible future versions of ENTRIES.Z, but I will not do so unless I
  59. think the change is much for the better.  Latest example is the meta
  60. handling objects, which got much more understandable names after I sorted
  61. them by function.
  62.  
  63. Each entry is listed in this format:
  64. addr type name
  65. [addr @ comments etc]
  66.  
  67. The disassembler recognizes the @ character and does not list the comments
  68. unless you're disassembling that particular object.
  69.  
  70. Each entry has also a type indicator. This was originally for my old
  71. disassemblers purposes, but it may be of other use too, so I haven't
  72. deleted them. The identifiers are:
  73.  
  74.             Objects
  75.             =======
  76. Address    Type    Name        Identifier    As argument
  77. -----------------------------------------------------------------------------
  78. 02933    0    Real        %        
  79. 02977    1    Complex        C%
  80. 02a2c    2    String        $    
  81. 029e8    3    Real Array    []        [%]
  82. 029e8    4    Complex Array    []        [C%]
  83. 02a74    5    List        {}
  84. 02e48    6    Global Name    g'        ID  (SYM)
  85. 02e6d    7    Local Name    l'        LAM (SYM)
  86. 02d9d    8    Program        ::        seco
  87. 02ab8    9    Algebraic obj    ''        ALG/SYMB (SYM)
  88. 02a4e    10    Hex string    h#        HEX
  89. 02b1e    11    Graphics obj    gr        GROB
  90. 02afc    12    Tagged    obj    tg        TAG/TAGGED
  91. 02ada    13    Unit obj    un        UNIT
  92. 02e92    14    XLIB name    xl        XLIB/ROMPTR
  93. 02a96    15    Directory    Dr        DIR
  94. 02b40    16    Library        Lb        LIB
  95. 02b62    17    Backup obj    Bc        BAK
  96. 02e92    18    Function    xl        XLIB/ROMPTR/CMD
  97. 02e92    19    Command        xl        XLIB/ROMPTR/CMD
  98. 02911    20    Binary        #
  99. 02955    21    Long Real    %%
  100. 0299d    22    Long Complex    C%%
  101. 02a0a    23    Linked Array    LA
  102. 029bf    24    Character    ch        CHAR
  103. 02dcc    25    Code        CD
  104. 02b88    26    Library Data    LD
  105. other    27    External    
  106. -    -    Machine Code    mc
  107. -    -    Prolog        pg
  108. -    -    GOTOable    go
  109. -    -    Reference    rf    A reference to a memory location
  110. -    -    Special        *    Generally mc, but may be other too
  111. -    -    Pointer/storage =    Or I just didn't know...
  112. Also as argument float means % or C%, bfloat %,C%,%%,C%%
  113.  
  114. rf headers mean references to objects elsewhere. The name of the object
  115. will start with:
  116.     rhex_ if it's a reference to a hex number
  117.     rr_   if it's a reference to a system binary that references hidden ROM
  118.     r_    for other references
  119. Note that the system binaries referenced this way have r_ in their names
  120.  
  121. Most binary integers listed in entries4 are for special display formats.
  122. That's why the number is shown as it is memory, not as it shows on stack.
  123. This eases interpreting the display format.
  124.  
  125. Also note that you can't SYSEVAL addresses past 70000, but the XLIB's
  126. there can be EVALed. Also you can put the address as system binary to stack
  127. and syseval address #C612. It recalls the object at the address pointed to
  128. by the system binary. If the address is in the range 70000-7FFFF, the
  129. object will be fetched from hidden ROM and copied to RAM (stk1).
  130.  
  131. Some programs (integration, derivation etc) check if a romptr has special
  132. arguments for these routines after the actual romptr program. If such
  133. arguments exist, the romptr is commented with a header like H:123.
  134. The arguments after it are named by the purpose, in this order:
  135.  
  136. EQWR    @ Equation writer        @ EQWR+, EQWRDER...
  137. SPEVAL    @ ROMPTR evaled in ALG mode
  138. DISP    @ Display hex            @ hex_80108, hex_5args...
  139. DER    @ Derivation            @ DERSIN, DERCOS..
  140. RINV    @ Inversion (for ISOL)        @ RINVSIN, RINVCOS...
  141. MAKE    @ Making SYMB from stk args    @ MAKEDER, MAKEWHERE...
  142. APPEXPAN @ Expanding APPLY        @ Not used internally (?)
  143. RULES    @ RULES menu for the ROMPTR    @ RULES1...RULES12
  144. INTG    @ Integration            @ INTGSIN...
  145. WHERE    @ How to do |            @ WHEREINTG...
  146. FORM    @ Imploding, exploding metas    @ FORMDER, FORMINTG...
  147.  
  148. (My old post about these had some inaccuracies.)
  149.  
  150. Command libraries (LID>=700) have similar flags for
  151. PARSE    @ PARSEIF, PARSEFOR...    (checking for control structures)
  152. DBUG    @ DBUG_IF, DBUG_IFERR    (most interfering with return stack)
  153.  
  154.  
  155. Names like dup, rot, swap in lower case refer to meta handling.
  156. Uppercase is used for the usual stack handling.
  157.  
  158. Please send any bug reports, ideas, fully sorted lists by function etc to:
  159.  
  160. -->    mheiskan@vipunen.hut.fi
  161. END_DOC
  162.  
  163. BEGIN_UU disass.uue
  164. begin 644 disass.zip
  165. M4$L#!`H````&`'V7$AF9==H>S@```*8!```(````36%K969I;&44"@$$`@,%
  166. M`24Z`PH#"@4$"@1:^_L[!P`!!Q;W]_>GGPI5.A5DSX1AX<(MZY:LR[<@R::=
  167. M&W9N&^3/EJ53?%JW<^G*.38&LCA=OE6HL*Y;NFCEE@U+5F>"9+Q3(M$DTC30
  168. M!TD2Q2B=4F'"L6-!M@C#0=0A:JD`ZCH3"&)6^^0*Z<H-.[:LS@1&JS.K@^!*
  169. MA63?BE63NN*J*RI743T(,*E@X$YERB"#7[0*%8ZU2U=G`N)\WC91S(.`:H5C
  170. MV98-ZU:GPH1RVX)L:8:?DJ\5`%!+`P0*``0`!@#FJS(9'VFH_:`"```I!```
  171. M!@```%)%041-14DN;P3_3P(?##\7'P<&!0L*!R@O"`\&#P</!@\8#P8_&`<?
  172. M"`\8#P<(!Q@?&%\#!10#!`8$`P\5-`@$$P0&!08%"/__________3PL1`@0"
  173. M`S0*!9K[^YL)`3(&!0<&]_?W9Z':O;XLJNCB-D_Y^T/59'9]YZ[JK[HQ_O-Z
  174. MML6Y_6<2'Z:ZZ=U\<!_8*:KZZK[?ZZ[F7W<QQ=W1'SKONC%3S9;_GVSWT/YP
  175. MZ\^<[ZJ\[C]JW^]F^5U1-5_O(=OE]9G9;H]C3''Z/=?/ZF=[FJSHJZ;<*4T<
  176. M]T'?].EVZD#3KH=4WI]^'`-?-_K$?>$,"=N>R%25C(7L=L>.0>6SS&?<K]E7
  177. M^1S'T,I?<7_J6>RSLC-R?D3,>E_=545SYSS]IW;Z0.>0LH&P^Z\3<(01[%_P
  178. MS6FJ(I$%Z_^(F.GW>5-&&,=`J]QM%Z=,W>%0A\F-T[=.?+!!AAC":[FQ'UY?
  179. MGQ9QO4Z3@;J9'</D:WZ^#C_?8O[M^^*L]>$"G*E6>I=6]:W)GT*L'<(<=H?[
  180. M4M-1A<5W-ZK*BUU'?U&FB/RG=CF;SLSL!S-_:,^07J-/4*29=7TPG]K+IGR7
  181. M0*2A*HHS3&U>)]49<A"@3X3_NOJJI/,M_Q:Z\,^($HJ@,X?PWR0^75?)U.FC
  182. M#R?%^/,8=80]<Y>2\S@*N(CFULH;1?;W#'CSTKJ-GF?@JV;X^E!M;OIN3+C[
  183. M#SDZUU,F$,QW(F^SZP/DW99`?G<HI%C(;A%?/Z)9WO.359'&UG8NGE65_8B<
  184. M"2E4I*:8F6N17K>/,+:<%G);NGQV0#(AID.R"&(.",N^DV,TU[5.,[TJ&E5Q
  185. ME9D7GWLC&S4'+9JO@1S'Q\>/37OV2M\Z^*A=ZIFNLVTN8'2`*:X^K)7Y`"O-
  186. M0^KNYA2Q(U!+`P0*``0`!@!]EQ(9"++QFED$``#<#```"````&%P<&5N9"YC
  187. M6X\$!?]/`PX%!@\+!P4$)0<%%Q4)!P4(!A@7!0<%!P@/!08(!P8(!P8%#P@/
  188. M%@@'#Q8%+P@?!@@&#P@/-10&!0,/!Q4#!@0&!10&#P8%"`\'"`8(________
  189. M__\/)0(!$@,$)005"`8$!0L$!Q@6"P8L!0@<"`P(+`AL"'P&#`<,%QP'%`$#
  190. M$@0#!Q8$`P<&-P97%A<&%P;W]]GO5HJQY?U/RF_I!!NY-)E.*Z5:_@^GV6\K
  191. M[]MOIB8WILUUW6^YFW78=C5VB_+?G?\=3;/WXK(#IVB'=:%_0K\]A=[SMJ'W
  192. MEM\V#3$]W_:/P>#^L#_"Z'ONV0P5*B,U3*!!IS=3`.YQ=SQJP^[]_=;O]B@W
  193. M>GI.G<O,,(W0C3K5)>[6,U+2&JG->H;I09_?Y]C\U:S1I,":Y7(>%9$*^E]#
  194. M7%EPYQ$>V^:%))^3]<80Z+106T)&^4OI;7.;7S(](_"T9DJ0ULHM/O\/ZO_6
  195. M[^6V7J_70Z^@V\UJ?]L)4,==RAHV;.MWB$N?;&=$,%;:<TF'JO^H[#-R7_-.
  196. M'&D:M(2FJ"6(M8+B62*Z\GC*V/';MNPSR/`4D5'N-V_OM2Z!QM>*1%CZ)D$S
  197. M7KSMAEQ>PF4FD(?8/URX?]P__)W?_UUO9N@:'RB+?(7-.0&W?D`'^T!7A7>M
  198. M_$'KV]WG7,LG[#KZ3?TTMI2KBI-G4W2R5B9&)\+]GI4.T;?2F7E:O^\X_<^*
  199. M/*,_6VX?^,`^"6S14^J&5N$U"OLC>.'_F.!&4NF%[1G%1F,A0;R^618((
  200. MI%HM[G\#<D`ZM_!L2`X.WN<&Y1`QI8?P'L('T#X.K#=6\N?<P<#%-R589$JR
  201. MQ+RY4OJ'TBNW*S4!?;OA/W<LQ[T_TO!OM6+QSZ5\?&Q"Z0\CD=<>>;:2OYK?
  202. M:R';S#7`X2%KQ/!*/F1.R3=&O&'HVOH1&?DTN(3DTU!XQU"V&,J#9\X*S'D6
  203. M<U9ESH-CSF*8<R]%H;,:=$'EM19;G)VS8)P+(5O4FYD&E2B%IN\YE:A*!647
  204. M]@*90@Z!9%.8D/B5?<!'NM&*4S;O(BGDD,&RF(F![K.W2CJ=D[I9B206L/?)
  205. M[#PZIY=Q!P,S[SGI);INZ'VFN`];<[@](^)%>=A<[???I[+:X['@&!_#&FD0
  206. M8?9*X\XN/!2YVO"`2*4:3S4I`E-:SOT:2(%*V?<O1DB&B2L@4(?5T/Y(+-PM
  207. MG(#,]P=HT/V#/^Z-#0;8_GP)UB@4C`K%KT8%+>!%&VEI%!62*(J+*N-L7/KN
  208. M_E.3ZYF-^MFQNR;/F6\&$C?)M;EVB$FN,,$2=ZDJ3E[QA742W:9*&,.S2`6*
  209. M7*4"T%"/VV%<6\VC)8R-;@4-Q:\I-+1)'?4?--R\$4W-.BM6#+!)6\ZC@Z!9
  210. M#SM!3B$C;I+A)*\.!D%IR9(&BBGLG&<<\KHF$1X@4P+\89RK/L]5QW2T$AU?
  211. M.7QR92G*Z";ERYS'&I*%I[)C%EQU,0Q$2^/QUAJ&5',Y4$L#!`H`!``&`'V7
  212. M$AF55>0LJ`(``&(&```)````8V%P='5R92YC5QAM%/U-`P@&!PT(!PT$!08-
  213. M!0T'#24-"`T(#1@6!P8('08')@@=!AT&"`8%!@T5%@T(#1@'!@<-!@T$!A0#
  214. M!!8$'04&!`,Í%P8-%P;]??[^_O[^_IX:`1(#!`,,!"44%0<%!`P&!"P&
  215. M/`8,!!;L+06M#1$"!@,7`P<6!Q;W]_<7D:=Q+9>6]R/TW3+=B'%!'J35O(Y=
  216. MF;1\PS`J%YG#<(?>M,QZQ6E]J$7E#=/F*4?DY<W3^'[X2D8@F6>C60^VV3R.
  217. MV&T:]VGL_C;$KZV_QFW#+RC`?+%]A#K./NX.W3F\.<^RK7><IWC.HQ_SI;&S
  218. MK.<%\K4*S9]B;WE+/0L22G/K*VZ=\;%;N7S7O:U[],]_WV'_<[]K37/:[9^;
  219. M^].2T]/;7^#/.6;@];QC=5>W?B%V__,VE=^2-!9JZOE"3]W>H-PH6T0=%[S7
  220. MV\!$_.WNGX?W&L9P]1.[NL56LFHQ;]S[5*2>P^S@<_]X,;HS5LT)7+SK/SAD
  221. M;7W82Y-U:0CY9@U3\0U[85)JQ)P,^8T$9)D<I:_,`9WBTD_82DM0P32;/^3O
  222. MNQO3@-SQIF[#U$53?MFZ+>@\HW$T[^KK7[>S/(DWI/!,U1O.;+GC\RBB_LKK
  223. MPI=F;+ZG=KXV\^(58T<!N3N00@#?MD0+F;6%$T2["TAE$!7H%=HC.8_49-UH
  224. M0FBNWWE&.6;*_PG1W>NM!UO:>62EXU1N_2;%8*PJ(*=@10^L-A\;GEV^_0-S
  225. MM9(K@''N)"_L.)7L"`^3;3"^S3SM];,KIVVX1MC6KR4&5JVEI0=*Y%Y+S*YF
  226. MYJ1(3DHU.2U;X2-@^8.8H1?%B(V7Q0@)P^#\_-WZ1!H'LSJ27\DNC)L/,7Z<
  227. M>_%.2_NO2'[F1?7BDJ^50IY$$]2ZD6]:Z:^`.DW)1QU02P,$"@`$``8`?9<2
  228. M&6#*V]XX`P``7@8```4```!C=G0N8U&.%`[_/P()!0</-005!@4'#Q4'#P87
  229. M*`<%!P4&"`\&"`\7!A\&'P8/!@@?"`8/"#\(!@<&+P05)`@%!`\(%005#P0%
  230. M!`4F""<%__________\?%`$"`0($`Q0(#14'%@4=%P:-!FW^G@X!`@$'`P8#
  231. M-P87!??W]P>1E[E2RN[;#_<EEQ9,I/+P(DW";M,T%R*54Z\KIK#LL%_W;?V4
  232. MA/BD*W[,KFM"0-5J:>M6RL?TG>)63/^$E'V?_D"\Y77W\WE%WDJYC3R*/>;R
  233. M/<"^`7;]`KA;MBUOO7NN`_R\+^L5XKJI-]:O^[K'K[WYX[#[4U._$?O][W8Y
  234. MU__&^4%],ZJY?CC&K\W3_//W:YA-^65]Z?BZ:1\V;.W39"_S*@/7?OS@S^C,
  235. M=446Z,N\?7Q2H*'OB.$C-M+2+IBBQ6.9N\L\_C$%4DE_FZJ#^1B'LO!TB[6T
  236. M?WMV':)4>VAV2"?/SM2'])V<E!CZ[JRD+5;L\77LM)I=XR)&B.7,.%&G>)1*
  237. MA4KWY&L"M4.LX-JU3.P^SZ_5/B&PQ,3SY?Y>\Y/9K]W<N&M83_^A=?UZ+*5M
  238. M#S4/,?:]12UCMT'9&9J-87>K58=<3+L-V1JN73Z(E#!A`O=\=)G_K]`^]9M6
  239. M2U1KWOEK(;\9M9BX9BS:3T-74%BP^<+](/<#5\9QQ3\&)V?=E<(\+G-VP^R,
  240. ME2U*O$[;L7?=>OKGEI!;865Q.C43V6-^S9\?8$<H.N=RE6->\6LXZ%0&$:+"
  241. M`;I_8*\AG9*#DPM3\1B_>NS?&^1ZZG+:U+JKH@Z8<M)\8\T4KBQ</JG'X](#
  242. MOA!;RN+G'B'[]FD(,-1,YBLN.4I7RC^(LD3`=]-8J"L,M-;"]-T9[1OAT]\L
  243. M[IM9'&QL_5NM^5.=C-<_WVXK&=1N&Y2-;'7RP-UK]L[OD_DY;V>\%W3O-"8J
  244. MYV_Y#FRJ.!$[X<\I_)%D_M"4WK>^T308`DD2A8-DR%R^WJ!B$77R9':V",:(
  245. M.):(!LR>,T@6O%9*A=R&XRP['Q,!,N$,B2<`)H##/5O,1RID1TL/HX<V'J2^
  246. M1\\X'HRTU^AI&<U1+0<QT)O)(2#ZH`;R']!\\=@1K_-2.7,!4$L#!`H`!``&
  247. M`'V7$AGKC9TDE@(``*D$```'````9&ES-#@N8UN.%/Y.`@@%!PX(!@X4!0X%
  248. M#@<&!18(!@@>!@X&!08%!@@.%PX'""X''@8.!0<>"`88+@@'!@<&#@<.!`8%
  249. M!`,$!P8$'@0%%`4.!10%!@X&!PX7!K[_________7Q(1$C05!PP%'`8\!`8\
  250. M!ES]'06]"``2%@<&]_?WAY&GH33FEOO-9>K2TR+%-@]2FC*7AG:,%)M\F#XO
  251. M=_ZA;QD_8OII.1+;W#R70\3%C7<OQ:[Y;Q1OL?[EB,N2_Q5QRW7]PW8$/T[C
  252. MSK9ZG,?9?N6Q3U#NDY,_,_ZS?]\YG?V9VP?^M>C:_*F,S[7-_.&S*YA1/LTO
  253. M38Z3]I24RJ?++O,JPY5O/]@/U2/JB'R'99HE_`'\I^%^.3%<F,`^B(STC+0T
  254. M5!H!U;NMLCYC.XX(4UM<"V>I+Q;&V]ZE>DQ#>RY]8<UU%^AK51V/1G3_**[3
  255. ML!/_:SYDJ?XRGAJ8QVP&/7976+IB%<AY5CV,/&NK*A:C\UBC@.='_>#(N_K?
  256. M*BZ/R\T):;5X3D;AJE%<Q[$O[1N:T].,MC_H2I!LWO^"W^BIW3-Y5W%J5U_&
  257. M35T6GK?M*Y4O!YR4M#U$GW,A3_?SWCG8SPLY;F+KYW4:[Q)Z:%K=Z3(]H^26
  258. MS0,XJ=!HN$`2K9S:G(9"]FW_2S]<J1F`?W=;JTG]:_5G&O&S\WU0Z+YPA[U)
  259. M?I\/$2EN&IKU#QLJT/!ARTD!<73*URC"[D$$RC#SD?Q=EWVH/X9K#J>>RGHM
  260. MJX'@#JI&%M+8/J3ATMAW=Q_`QCN*L>V14834=:5UH',X)B$S7N:#BH;RS^XV
  261. M@\J4L#./`>'!&?#DP@/#3]W:=;>(HH_--Y(UQ=NES[50MJB=>IQS_EXGE\@.
  262. M6^H)R^D7\'.PV<]0U'$`4$L#!`H`!``&`'V7$AD!M5KX;0(``-$%```'````
  263. M9&ES-#@N:%08;00%_4T#'08(#0<&!00%!@4-&!<-"!TH'04&!P8=!`4'%0@'
  264. M!@4-&!4'!@TE+0@=!@@�<-)00#!`8%!`<-!105#14#!1T%!@TW_4W^_O[^
  265. M_OZ^&"(#!`<$`P0#!`P$!0,$)0,<!@5,!>RM!6T*``('`A8'!O?W]W>IRU0N
  266. M9K;WD[)W6PK!E1+'XQN=?]M;?[E4S9UG,[I2*;Z^JLA,V25F>MM?IGLV]VW+
  267. M]<?C5-DOT_O-\'NWVSC/*.EU%<SQ^*7ORTT:9^FEXV*]MZP6;V_6VV.'%^'=
  268. M]G1'QOO#^<V#+W/_L*KX`=7[T]$?6SA3>Y()3KP'_;'6'>[Y_)NVR$$[RTIF
  269. MM3B$G7[&;C&#]H:TYLLNY[9D\T)+QBRL:_9=A&D0RRMN"#.,^E<6)]Y]914_
  270. M\)S`A)<&^,K.X$'ZWIYG?;!^>\O-"CFA^LT!3;(7QUOJ*V8?@=V57!3$Q0!<
  271. MU,J!V'F(DZ<NGGKYZN"K6YA1G;9E=3'1(?CG:M[.S'OM6GV4/<YSI/@?[/]!
  272. M'K:L4QN1.%XYSCFN\A,3?S"Q/W2D/XK\DY+^J/*C_J`.<!8QL`:X18WT0XK#
  273. MM4[=:,"1.3>:'B0&05">Y<*<+[[[MKY1\:;,_,,4;NG)V5_)5:=R"<Y]M5@<
  274. M_+"9&<G\#.-"G>T:^/LB"\Z>RT6MJ42P]KS57,R[7#[?X^,[S6ZX7K<=H5T;
  275. MI0=_.\[A*'TD)W\5_]OQDW]*E!1N/&+"WL!>&=O+![.%;[5VWY_*D3)(Z7_-
  276. M^#1;0B?0UMX(7'W,$3RSM5LM9I+*;+6]YS<-Y")'K=-HM9M[K6,LA.O5`5!+
  277. M`P0*``0`!@!]EQ(9<TV,"/P$``!8#@``"````&1I<V%S;2YC48X#!"[_'P,'
  278. M!0</%P8$%18%%P4''P<)#P@'#P8%!Q8?!0<(%B@&'P8/!0@&#P<&!0A/)@\(
  279. M#S4#!`8%!!@5%`4/)`47!087#P7__________Q\;0A,$%087!@4$!0<6%08H
  280. M!@@,"`P''0>]!P8'W10!`P(#!`,D!@4$!0<&%P8W!!;W]V=1MK56+E3O&U:W
  281. M*5S8B)7A>4;9]NK=7[N5D'RVVM7J_)/7:9P+M7%;UJ-6:<RO7[JES(>[KX'X
  282. MF8]U-N<?=,XHMSQ=^P3MKM5M/\\QNGB5.=QY8YG^7[#S>Z9^?[WYL7-^2>9+
  283. M<YTS]YI)N-\Y3\?]??M)?ZU`DY(ZJ&6?[T4M9\AEJ\("S;R)A?%`!!^X:]J"
  284. M6L6MK:>EBZ*>&_O]4J-<7FJLV#__MK\C='*SF9+0/&I+J5B^XZUFRC*#\__Y
  285. MCH5YI7[KAKV7EOZZ^;#=;K<[T,?^7IRW==R/::S>F>4?1NX&.)_QEL+XEOW-
  286. MC37FQJU#5;JC2BIGJ!Y%=IP?';RH`!M^#F2UV$M3N;$Q=%:]',+HZP^>+#QM
  287. MP>^RL\Y@,'CIGC3[8LO4QV?R]L96OE5M[VS_S6_C$=YR<]J:TB-LTY],Y]MJ
  288. M?U<FZGZ;5K,_=XK886@6Q!T/H!Y`HU$/;W"GI7PY5W"0R]$*K)V:&FK`-5%4
  289. M[%:DI5T^:>=SM7Q#VA<>V-ODIEC^;VZY#HWSV)AC+D1.PX[M^N7C8QGY8,-E
  290. MK-R9JC^LL_5K%<FK^?R.%W"A5'2\`N3F?!(\=9L:TW1+]?(EL]@DSX^856B?
  291. M^8),3DIY_;U(<.5/P2]Y8R_S`3C?$B84>#$K\W=.4^Z;\AV%H7F'3!V*F\#^
  292. MWS0_NC[!:(5(*_7"'A^N&\M9?<QY-O[?>7WZ_ZI+L5&8KDR+-B_2)>A8^9IH
  293. MA-FR=$-4?/P9Z@3>:,797/#3M@B3Y]]*@^$RZ/TC]#4TN'BAT-#]".9;6]9Q
  294. M6PM7F<TA'C?5T'BI46)J*#(Q;N'R++5D=0'4;+XX>R]?8`8F\Q2NJ./E[*%3
  295. M,G8Q*G*Z$F36A=#O[.-29W_][0D,_WK6VL6B59_$W@%5-P:ZG9B8TDH-)*C`
  296. MVZ&.8N;+SLB&#=ELASZ*I+TO\SLV3S[HCN.E/9P_4J1WT+.:UWE;KT?DT^L-
  297. MS!>8$*;S*S<?;V"_%5V'<V+JLK(&L=:TH7"[DQ'[TXL\J?U%=YP715RHM7ED
  298. MW!C9_-'F6E,/4R`WUEC%F1#2H-K"&1Q"TQ;F"V/MR(X;LW%RRIQ[-5LP7UIN
  299. MF2IMM8RWH00QVU&9=5O:4UD]1>6,3,N5HNX48AMK%5[OCYE":PTUR2'DRR"E
  300. M&ED(X5?X3%6UA8S0YY&\7'YC95X*,14\RQ^8W"Q"3/-9(W&6,3DL#:,2E@'_
  301. M]?DV`NK@$J5F+`-2Y=?LFO:F-RX*Q7FT500*7-4G3J)1'UD[E`(N6`JDL,YW
  302. M6LHA;Y75:IPR4Z)I2>6PFKN$E72CR8$"L019(O=DTJ)(5%+8&5'AEDH?CJGA
  303. M.PX*F/6+O(YOK^K2-I$PZ;3K9%O:)Z3HZ(2NL=RL+":#64ALH>U.,I]DE(%@
  304. MVO('<MEM1>-R>X0>^3RL?!DZZ665Y*82!F[[PI@[RX;8`"(J!FEB$"(&J("!
  305. M^05,+W`W!2D74%I"B`5`=2)]RGO1*;A,52IP'3D"0`+(3XK1Z4Q/"HRP(.A@
  306. MXB!M"#QW`E!+`P0*``0`!@!]EQ(9E@P&!DH"``#>`P``!@```&1O8FHN8TT8
  307. M;00#_4T""!8-"`8%%!8%%P@%%@T&"!T&&`0&!08'#08''1@="!T(+08-
  308. M"#T()BT$%206!!<5!`4$#14$%@<&-P;]7?[^_O[^_KX.$1(#%`4,!Q4$)BP%
  309. MO/W]"0`"!Q8"!O?W]X<%XU"KQB[S%RYC,2LS4ESA)2494VWHJI'BTN^-*8\+
  310. M[-,R3Y^6DASX3>YBIRDE3+U>G8]:W%KZO,I<:7U*VK*4?D7<<EW_L-^"N5J<
  311. MR1%L,\MW@#L!;KL`^Y3-<FN?PP;PPS).-]0]J=UM][QG]XTW/PF[3T__G(3/
  312. M_^/@=/[G[!_QF]'-Z8-B?&KNY@^?W\",\G%Z:?+[/6W/R&A\%NTTSS)N?/<A
  313. MW\%YU+T%!-[C,#^"=R!!?C#96=F9F:@D`JH/6P7[V?N]$<:NLO9GK5SIJW,W
  314. M+]L=A^Y<ROT:6YQEOKE=F)#*.@X'\;^6XFNMMTEYF,<X1(6M*U:!G&<;1*QM
  315. M-`^4U[/Y4>_@?S+%FRW78Z>DS&8")^7SX_0]P\:-!HX/C7;X<^I+`C\=Q6Z9
  316. M2W;NA1$3AT*9\LA3_-P5#XMO?7$,/9<GRW;,NV4<]F\T/B70U%2L.NNE>0WG
  317. MWJERY1*&NX57ZWO&U=_^R.L_^,:W$X?V_OGYGFBSO6^_YN9:GYO+XI3>!BX=
  318. M^*8W"N*X'71[%]M^_A^9UVS34Z.>'C"-'@Z"'J>U/_+G-/T-,+0"#$\`XQ5@
  319. M,(D9V/J\'B1'*3DYL'KXN=;IRL=;I'B#<+DPN**`.RN)<C$W1X_=X64IZ@)0
  320. M2P,$"@````8`?9<2&6R1UB0F`0``O`$```4```!G970N8PX+$1(;!@4#"P0+
  321. M-&O\_'P&`!8!]_?WMT>F=3N6;5VR94&*))MV+DV<+M&*5*C0:5ZQ8MF653@R
  322. MK5FR9<V"#.IT:E*%1\O2J2K*L6C#R@6ILFW9MBQ!.@U*EJQ<D&&(3ZEP9%FV
  323. M<\N8&=BT$F^">'<JB'L":W?$[Y9L6K,*]RI,`':W.Q4F5)C0+<B>(-+?(BY(
  324. MGSY!QNQB?5JS(%&&1"%UDR!CIDRI,,'Y/GWV!$F#._KEEJ5;5ZY;E&ZZAXG7
  325. M;,J="OLJ5)C6+1U`/*E;.CT/5F'QRQ*$^R#=%+)U!(%9:%.(JC"4_'9>&D'0
  326. MIF4)DLZCFWTK%R3*-)2'$9VQ.T&F!<D3I!OC5ZY`+%V0?'N"L+E)%!K?4X`/
  327. MDB</?U6"I)E"E:9#:E!+`P0*``0`!@"4JC(9W=VW]1L"``"Y`P``#0```&AD
  328. M=6UP,FAP8FEN+F--"G\'!/]/`P<&"@\%!@\$%18%!P4&%P\%!Q\&%R4&'P<O
  329. M!P8/!E\'!I\'#R</!`8$!0,$%00/!Q4#%`\4`P4'%@4/!@\&__________\?
  330. M$1$2$P4,!P05'`8%G`8<!OW]'0@``08'!O?W]Z<!-MTEGRV]7^E.:1K#%Q)W
  331. M4L!,5S^9X76L4'?6HPK/RSUYTO:]WFP*@NK"_[,&>MU??V&H)?W<RY6RN>&O
  332. MW?^""ZLX!7SWQV;^*;P_W?/ZN^9_Z<5FB\77(_-Z2_]D^]O]Z2`WDCQVNFN?
  333. M84CSE'_A6?H+@H6-Y0-WP;.WFXKWE?Y26/O?Q:Q#X+LMK5VA<>&END>YWC\6
  334. MOVU;$A-KK=1MJ51JK59UC]QW)?]_Q_/&>6M1FW#3ICN4B^\@;)/>99QMKJ=\
  335. M'F=7U3!9]0CE$,$33-K@N76Z'AEC^7%47_*E*LISOEB.`+YG^?$6_QPNY<]A
  336. MH4K'C;P!%5K&[%%MZ"T^;^GQ<?%QM:1&B'03WS$%)-=_4W&3BZ<H'4]PW2WK
  337. M5;_=#!8DN1%Z;<PA&PE![3-F7PH3W5[:Z2D_#<<O3<*?I[_@]29=`EFH=NDS
  338. M+WFK2N2,F'E\M.V0&:;0R#O4-#OY..(\]G_#\BHG5]$\5Y(<E9JJ.X*[B#X^
  339. M#AN-X\?B"L9?UC!>Y>3H>4[;Q#RD9>>2L16MXV.&P>?BF]A#%LXA&AOAQN.%
  340. M>Z2<[T@Z>[L@"E!+`P0*``0`!@``F!(9FP*&XHP%``!,$P``!P```&EN<W1R
  341. M+F-1C@0%?L\#!P0''Q85%@4(!@<&!085"#8%!@@6!P\%%Q87"04O!P4&!P\&
  342. M!P9?!@<&#P@/-`,%!A4(!Q4$!00(%00%"!8'"`8'!O__________'QLR$T1&
  343. M%08%)Q8(!18,&`8(!AP(%Q8<!TR=!QT&$@$2`P0#!`8$%@4'!B<%!Q7W]Z>1
  344. M&NM>+VWO7UNCW,_*;U[3Z=X\*W?SQ23$__1_Y0US!_T@<K*S,KOAPZ6FA+TR
  345. MA'MA9PTY5_(2ACG.%SV]K\J;RV^.J5VC;WF,G?1WRK[7*Y1+^KY>LF_/]/5_
  346. M*96;^6>(.03W+-5%LY3__!C-*[/:6C7@Y]E&WW],JWWTF:<<>RZD25Y__E#T
  347. M%LVS]YHUH>^V4R,F)V'CC6L:976=O%B]652W8_1/5SKZA^.=BM1S-\_NNH=K
  348. MY;V;Y[DJ#=9,5_UZ@1C?^A0O(,I5W#AY6E?<.-RMO\L64F9"W]#(2Z$GG2V]
  349. MDB1'GK#ZX=IW6'W3Z\I+N0ZP6)-NI$9K>ZW?;8?L^+0NSY7A!/-^8>W51K_=
  350. MW3;+/Q7?_UVW6IK'&>!%%GA$I%<O/V?)C!*5=]T:K>F4T0K#C;>TSXWJZBV>
  351. M6Z*V;EYHK_,(K[Q1_0QL<]L>*";\EFBM>CO8<=3?O690UBW+LYY%LNV0WUCG
  352. MVT;[9?07SIO>Y=C&O#?_9'6S'^;-_(.)*B@8CSUR^UE^/Z\WO>]&ZT^T4Y'3
  353. M?U[,4]_[7J"_NRS2',CZA)V//I3&UWB._?94!_[[XQ\T*"0%=*WQ6/?NQAQL
  354. M>8B^%&BIMH#OC7A'Y9W!.2]J"KHM4;#*IQN-#"M*L\8_`HSY=;M^[U_5RJ6=
  355. M%+;QZMO$8F^MLML-%2JEG1I88C?\9(&5A7XXC:^_^&?[/1#71O-AS[T;F&Y-
  356. MBUU2F6=R>PBG$5Q$?.DA=FHUC#XI`U8,&2[")8<.W86XD[8`=Y/,KV@I@@0W
  357. M@(1:$`E5H?BK88[-@+IEEQ^D2A>KZI)C3KC9CA3E!78'W>U.]WN0/0B$[F[N
  358. MQ72YP8R:/9UU%K%Y+L6U\:2+/IP>_%JKR\!@\8L$@LB0:GD,L6"B.<0>:J+#
  359. MG)$STL>^HG*1]$O=>-&1+6VTTVC1>%-4$H#?!"U41W&^T%PMRZ(^A:OWSV<E
  360. M[LWHWT[NIJ8FV2P`&GU4SG5ORDUXS7.\!A_0I=)I&["%<+;^&*#0E]9Y^-1.
  361. MF$ZBS.>_"I:)V+P/X4,4(^`A"6S("\TO?P"@94C&#DAF9&UDSJA,8K98<W4^
  362. M4&M`OC#[6:_[`NO[PO7/%R:KQZ3!C#/NB(5_>2]XY%\84<,V[7>3]1S_XN+/
  363. M61\:ME`0N(B*\3`(Q+ZER__<K%1+<4UI:TLS#<2FI6\6KVZQH;MT0SS"SP,P
  364. M/J2U$"^(Y)BKD-(N:D+#XE#$:A:I^\J+TW\V/K&2`(91PU0"`B7X)2:A22A.
  365. M)%A:FHY?L9BQ@M__A7^/!Q&AC!1PZMUA<8*<M_>I>:G)5EXZXD5GT9BC&#HA
  366. MG4DG[,"=4*7S.`R#3'`X(`,.!ZS[&-2?I?I,9,Z%H46)'S,Q9X_*@AK8I9EZ
  367. M`(-\:ZL.;:$1A[;@>\^RVGIR!H'9X=6&^@!\GLJ6IV`'1\"9Z)!Y&6HE.1U<
  368. ML536C*)%\Y#3HJ*&[R=M4%8O7G]AR11-Y,)]>[MP!R00#X<TZ&N>0VM]9LE[
  369. MO8(H@RZGG[1T9/#EV'-1!B5'G[!FB#%H<M\L>Y`^HKLC+43&86(,!N$+KG2L
  370. MOK!D6$_38M<J)'`H\V/\Y,;J,QPZ7.T0\/[B*$I405-*4%&7QY"-1$F`*>FI
  371. M2,>0]*S+]<59)_`6U9EW'`KO1,4N"'*03`0Y>L&Q.QRK*1!3@BLP!7VVH*":
  372. M2B6C\&A+3$D*W6EW$U,`B83XI<HZ(>)F&C4%4$L#!`H`!``&``"8$AEAD?9_
  373. M%P,``&,)```(````:6YS='(Q+F-5'F\%!/]/`P\%!A\'!10'!@4,!0\5%@4G
  374. M!@\5"0</%P0&!Q8'!@<%#P</%18/%@5?!Q8/!P\$!0,4!0\&!0\')08$#Q4$
  375. M!0<&%P\'#P7__________Q\=,@,$`R0E!@05!Q85!A<&"P<+!P4;%QP73`<\
  376. M!\P&$!$S!P87!A<&!P97!C<&]_<WV=72J^2W]4^V:J&7/HR9W/>+V8O32$E+
  377. M_%SL!T^/_>%^P'LZV4<_S#:8C+[D]"4/]$=_EYR^Y$+_@VX/.O.@VYO<N0ZT
  378. M_$AW=K6VK;5_-./;=[M44/=+=LIK>?2;Q[99_J[X\.^ZT?GYO+/72F'UKJ67
  379. M>'"78%']SNV_4__MN';B[_A_::O6;IJ]&:A>KZS34H>RU2S/>A;)^D'^/2U$
  380. M5><7\Z^22I^\SM[#+Y>QGEE9YPG6O;VP_D$7LO<A?[J@_[$L\$Z37PJ_1U^.
  381. M#K(.H^+FN'ER"CN]RX(+WP/^B_D#_-//'_:/]_'O_O$;ZS?<B_S#GS_KCP>L
  382. M6ZV)O>'^X-3\Z9&8F-),#18ZY)%P+2@YJW)D;A]O/BZ.@=<UNE9BW9SAW[A5
  383. M4JMU7,NICH8%J&JYK^37[#CAUXOK'M1RH-),J."%J'V!BG`*)HZ^Q$(Q9^$F
  384. MG4:P]K34=G*[`7M,YG04)A'F&5V@@RF-O$@M$^GS6B=.OY"Q$Y>CAF.H@?:8
  385. MLXTCC6D,:`Y)1OX]2'V0NHL5>!,K9%^L+%EU3\K5$:5<N)$+0N=9C\XCAG0>
  386. MTD5'U:$S6%4Z!@,6DF,F+R_G/*/)4-6ULO&TTF-K'H[$.X*0[$?P+[#.E9Q*
  387. M.>[P7<L/T*44Y;B1IQC,'-A1I`ZD3BR=`3J"@Z_#._@X2C_<'1P%S]LM#>,3
  388. M0N!SF*&I;"@0#R:A87W/5^8NEJW1S!L$?BJF#E1,[;/8AJ1OQLFD%'IJ5+Z.
  389. M-J$V)-N`!#Q:1X(@YW26`GO-U\;RK^<ML_,-:A:VAMT>;)X!.Q%ABYR9R8U"
  390. M"KB$:-)@JETNT^W\9\.78A)P-1_"3LK(7>?HO#52$EKMYM%(@93B.N>+)<O-
  391. MW5!+`P0*``8`!@``F!(9\F^;X`T&``"3&0``"````&EN<W1R."YC4HX%!*Z?
  392. M`P<%!Q\))0<&!0@%#P8%%@4&!0<%!Q47"`8(!3<8!P4/"!<&%P\&!Q@?"!\&
  393. M%P\(#P0%`R0'%1<5!`8$!R0%%P8'#Q<%__________\?)"(3!`,%!!4$%08E
  394. M!$4(%@L(%@@;)P@;&`L8!PL("P@&6QP7'`43$1,$!0<&!!<&!P8'!`8$1P;W
  395. M]W<)2MLKYL_CC\[2W&YVRZ/[?N5K&<>O;A&GI9F5W&F%_[%_\'L\2LI/W3G"
  396. M%&%ZH][7N(D:>VGKMC'>A;$D<_/;V_9PHQ[@?TG;7@J'\@I)H8[N9?1*9^\[
  397. MW;F<G\Y-XJ<&$C6JQ[_.4^A<LSM$QW+,QR1Y*_GY/:M=[)B7([3)<>?JC@E-
  398. MR$QIFY(VO7G25T%94)BZQW*+8?.%E:H,DK]*OG,$LT;RF)+V?823__AW@M)^
  399. M'ONOI4:LWM5MEFH#FK-P%(1_[3PMOH5_,?"[7'=__TYP%.<#;*>Z1J?.A2]5
  400. M?OT&O&/`6W<YB'X=\&]G:;\U_*DA*I7B,=[J%/MN\:S.56+[>)[E72F>9!^#
  401. MZ?.\>[RQ^@,_)KT3HQR(WWYV=A_K[7\P6)$^J;9;^/Y/&)O/V[_'X^68\LLV
  402. MJ*TK2A?Z`Z'>^VO?[O'^.61I>N4_V/IXMG?-QV\V9/[N/@)^=#-YIU_B?$@'
  403. MY8_]LQ)?_P<+]C6V1U^G"?TIQ'HH_KRGK4YR$1Y;R-RM=.)E=[V2K^SP-3:'
  404. MC\=TC7?!INC_-`[&SZ71;_Q16EK:".RL+,<5IDY_4-_,!N04`3=7N,,B8)W6
  405. M8.W]C>6L18H4/35&0('68@U6D1/=(V@*OC_.;R)Z0LV-6=?50H'_TSY.WFP_
  406. M^W<PG&'ZHHR_W"/:#8EMNL3>E-CCJCCI9/\!%O^\/FOUBAUWQMY77#!.C'BV
  407. M%%DD[]GDO:8,DWV*H5IB>3R)/2OQLMA4).N#_K8OCL[3?<-K:/N';^A0^CQ.
  408. M*Z</W"!YN4,ZJ]M$K*1,'!XW.WUX/^P\*\O(PY'<GI49V[WRJ-W`Z:A&B1*E
  409. MEA(8GK8J1[3H`:O,QHQ62^%]Y2/16HUF,3+CYYIZ@+P,61-"UN!\O,2WZ)E)
  410. MH:&?X5M?[^,])G_OISN=N:_%J=B;KB7<,;']U,BU&#%2L,T2*Z\LU_;*&EKG
  411. M%.CKL7S;FWT-BGUGT.-2."S#TLBY">R=0U[RW%!EY+H==-IR^#&^T0(V#YHG
  412. M[C2)DE>I?(D'*J`8QD)_F_-@#X832K:<`DMW*LE-!%8(2NIRD_IA":UKNP!$
  413. M3=:`(E']B(>#'LGZD5P6(4=>8Y8]>G*;HW)QW_O#"L)[".\<$K&0'2(61(>(
  414. MA9EH20.L4))2SFI\$MKX7NQP.#/P-+D4MVY('B43<@56MZQJ&>%A>-46/M(=
  415. MCI;#$4]\8A$?3$M``@WWY=)Q/.E"ZMMR,U\Q9>2#*!W%$ZOMFPN-1"0];I]2
  416. MTFQ!^W"4%HN'/Q3I64X''!?*R'F1#Z?@<1`'XA7E.^$8=SM*T45C%^Z<9SJ*
  417. MQ.9,1H^?4QJ-J;`(N8DBT'K77V:\/HOX,&OHO[6K'7G:\'9AN`SMI.(KJ&EE
  418. M6TD;\#3ZAF["]8D$TY.D''5M#8;.;285F0W*S^]L92"?KU^:[?(B],C0D"SF
  419. MFTF7V!X2NRV+]&8<##V@,9,DL-G*F@U!S<9,"`@MK!R6O#2)D6>#8/50)*"H
  420. MC.F8K3MFHVX`8J-GC"B9%EJ*59IF,WJ0-O$9GCP4!9EK/&-R4,3DT%CD`4V>
  421. M<N02:0PR@RS,Y(&9C"\3D6&N!%TF>]LR&2(3VHY,FZ[()'<=AK;)JYLYMJP1
  422. MD56D`)^GD:FIEDR6GSC%.$'16YZ</D].YZ$2&TK>,`ATL_Y*/90E.;8,,NDG
  423. M-"^QTB7&31V%K;&F9H.11E(SK,4$GR/!5US?E#(W+J)D13FS4U1$,9(T.)JQ
  424. M,(8U>1*(1\/>T5QMET%S5IS(5E&'%1;'B#:.$3L/O@C$&C967L4B#S[1]E:,
  425. MC+-MW_E,VM\B$:+/FO]]==:*15!\W!L/(;H]10-^B6:>H*MTN@7M9,_HTS.6
  426. M13L@8L7PC`2--*:@.5!+`P0*``8`!@``F!(92<YU=Y$&``#S(@``!0```&]B
  427. M:BYC50Y_%/]/`PX%!Q\+-08$%@<F"`8%!@<6"08'!08(#P47%@@G'P8'!A</
  428. M!@<6'P@?!@<&#P@/!`44`P46!`@&!`4$%0\$)0@'!08/%P4(__________\/
  429. M*!(C!!,F!`8%!!4'%08'!@<8!P@&&`L(!A@&"!4$%08X!PL'&TP&+`<$#!$3
  430. M!`,$)@<FMP;W]T=1UWE?*MO[XVVMY687QHZO*^K:VE[K=U)"AKWVV&.Z^\GO
  431. M6(84[_>;KWG^E,ZV6?Q#X9_?Y6I4JH-,KC-"HUE?7EEL%;(ZK7,<V*HS34>T
  432. MURIUK56Y5N&71OM84H[F,YYJ[&8#"C4UXJ:C*1^UQ+WV=*R[V2KB.A]3=-B9
  433. MP,GIJ,<J3R8=<7%O`ULESJM(5&#+VN9:I:_3VZN-B4DB:/UBDQ&//:92QQ&(
  434. MYC$S.:7S7JTFH>0<9\8'0O;<^`!3USGF;1A\P!$4_K%7W\3FY&;!)R&MTH_J
  435. MH3;PJ&^I/6TN`9.KK;@B!1<GS3.0/%@G'L_`T\I\'I'/&_$U`5\4%@90&!_!
  436. M\ZO651%/M8UJ>BG(2@Y.<BZ29S>C:AR:];RMK>NJ5:?*7OV-=B"MRKS_8-?M
  437. M;'TSVS(Y6?C;\1KVH=Y`1BJX<?A[B?TY^FL)\;]+_X(5E`ORLH(,\OP,OM(I
  438. MLHT<^?P,GBC'D;>?WU,6U/ZRSP_C73KO*'W%^_>CZ(P5/8'V(W+N^0UTH,?+
  439. M)?L.ZBY[SB;U+=2R'%L6R_?0A,K;[,]$+<N>^\[OHL%RM/-9OHVFU=ZR[CY:
  440. M)OMVG-](AY)GY9W?26>T9^6<WTK#>,\M<&X>LE'V'+UOIB6Z<=,T\PJ<T%Y=
  441. M&S.:N]&&VFU^OGGWU4+9>STTG[&6RIZUJ5S`I@L.I6:M(;:W6^+?6RV^^[Y#
  442. MM(W#O)V=[5RXZV`N+WUB:FKI*F5>EYRVLN)#BVCKJH"KHJTFUPEU$UTXM[B6
  443. MRL^\.`6!Y1+Z!"*\1=QS)L5Q4'P7OD'[=91_W0>4N.5USQ0__*NB<L=_!V@N
  444. M?P]7_&XUIC]LU'D^K\C,WZ@79;"]'Z#6_04<K[AX<-WWVH)Z-&>W^V>4=[>G
  445. M=\1D2KQ+:%TP<.+O'@;<6+?![]3KC!V!_Z%I/_\X<8Z9&\'GK^(UQFCW]*J5
  446. M:1X"/H]74FS#ONGCX)5=0<8KK\/BEZX+W$O(\"F59IN?A3K_.E=_:W&XR@N9
  447. M6;^3S,P)=2,].M-].].>_VXM#E=YL32"S+U"_E73%MUN+^^N`?0ZR:^1[.6$
  448. M7KS&WDK(SXW7M9:S+J\?R=KA1Q+I$$_+JIQ07N/1K>0NPVH(5`^,/K?ONLLU
  449. MH]'.9\OY;#D_S@[QG:]60LMYU%HW&NT0J$ZH4&DIZ8%&"-=)]I,UK!'+#.*/
  450. MBD<_P']4-(*:BWWEA+4>;S,W*C2[@\>NR_O#HB+>GH'ZS+KCG'8=[^*%N9`&
  451. M$#LL4X5E/\KLHS&MV?]MZ9V4EAPF;$HG*6VH((S&Y2!8)$JDNJ;6S<0%V7?B
  452. M@B4I^006G+.\`588'@K:JP3;D@7W-&&H9&WQ;?220:D;,728,!T7LW(CW/?!
  453. M2-60_&1*RE/LT#6I`4/S7%V#!F`BW"(JF\P1K94-0FY1V2#-<!@K3Z^3R>$V
  454. MK"'3S>$M*]EW(:_=G2X.`\9FI1.YK][@%_T>C0<\O>A3C@="X]+?#OF0[GG`
  455. M-V;PY6Z5CO.'\\_X^3FTC,O/D66\66.GG6U).#[<*_.RKWA!T@7CUWQTM!-]
  456. MD5AI2WZVL+!P;,\IG]D?8DQ31.G^/(MPW)SP>1D\-+'34/,PO$:IA[M)'VG)
  457. M_Z!!/\;/^*.`1@-ZFH9[@*SCTZ2P%'9"FL"7PAA?MB1;4]6_N.OH3:.P-XT:
  458. M$#R@,II<%SU/"J`$A@`-*<NS6H\DZ<&,1L*49A/%7'Z`HBH03NPXR1(Y%)JF
  459. M!-O")#V`D"D`8<D.G*2'!!*%4Y+M=&PYH,0(P_R-GQ1C^[%A:.ZB+B);$[$1
  460. M^!PHZFMF8.10Z$&H(="<?`MVPIM\@`F'`\^XE%XG2]*#``Z)4FK=)$D/9C@D
  461. M2:EUDR0]*&$IEY)LQTEZF,'0M`P!=L$D/6B@&6BN];I8DAX`4#0CD8/=,,D%
  462. M.18'#<6XL2S8*1/<BL/2;GMH'+J'QF%DJ+0B)*6H@;:KT4L/,`@*35JR0XT>
  463. M7)=$!#,6?,\CLP1G,CA5'AP]-`SI<1X)$R/"!`W"]$N#B85@"B%&$DP6RU!2
  464. MH,!P^;%!DLL0#1"2B6/0;J"D`E!+`P0*``0`!@``F!(9BJLV^ZX"```5!0``
  465. M!P```'1R86-E+F-67B\4_T\#!P4&#P<&#Q0%!@4&!P85!@\7'P4/!@0'!@<)
  466. M#Q</%B\''P8/%A\'%@@O&`<(!P\'#P0'!00#!!8$'Q44!0\$`P06!P4/%P\'
  467. M__________\?%`$B$P0#%!P'!@4,!@4&#`4&[-T&O0<1$@4&]_?WE[GC4"[%
  468. MS.\WY_%&JD2.;1ZD:82I/+2ER+'ACR-W?M,XO)^4$";@E!\Q(U)&I8*:AD6=
  469. MW;8S?\9V'&''MK@4SG)?+)1>^^;U&(?VG/O"$G/?3_NUU=3C!.@?SOU'<1F'
  470. MG?A_Z>+*]5^.7;K?:&`^>CMR7^D^X=9MU@95SUT/[3VU>]7^,(_3$>0X6;NP
  471. M'B?U#H[UUO];<6OPF"E4I1:2LS2*KUC_C>)2*O7E?6,]^:>_L\L/_ZO;S\GY
  472. M46_;E8L%U(T.50U9_\VL0G/;CI,G4K4_?D&UZ%$IE<^V_;2TGQ1H<O+VG?Z<
  473. M"IW,3_MMY]=UH,;N/RUCZ<T!#4V*>[[\V.Y5R@T,,_5QJ3`2)CZ!PNG-&3"N
  474. M;_L_]\.3)@!]7VN-Z[]6_\SPJK$."M\7WK`WN[[8K/_$$*%3$Y.2`W'X"+]F
  475. M,`R^`H,RL,+=6^9]J'\D9QQ<_ZAIDL46F'QM`99+_7W[X`S>H_MQWCYR8@J]
  476. M[=*U`>:D+G>*>^W=*6S7_QV#OGZRW`WS[3P.`D[V!E5)[RTOP\3?S2AY-7_.
  477. M=2E5\4CJ>)=[7S%XZ>T./AJ6DQ+#I::&]I8^IC4[?0=K)5/^I7.;K]1JM=JJ
  478. MY!TLUL/_]Z@"CN-3$N)='/@R6'+>[&QN/=%L5?1=U3-ZR%,Q9W_06)&?(B-J
  479. M5I;D2KC:I'!*9@/'11/2?Y1:Q/Q/<6SI$Y6WK8U,\?.%/+GPJ5:SL^FL(N>3
  480. M#N+OWB.;H0^[Z2=LE;3]^IA2DWS@`U!+`P0*``8`!@`TG1(9WN5"_'05```X
  481. M50``"@```'5N=&AR96%D+F-8CP4&_T\#!P4'#P8'!A0&%18')1<&"`H.#`<6
  482. M!`8)#`4'%@4'!@<&#P<%!@4&!P\%%@<,"0<&#R<*!0\$!A4$!085"`85%`8/
  483. M)`47%@D&"0;__________Q\F(C-$-385"`87!@<&"`<)!PL'&!D'"`H)"AX)
  484. M&`D:#@H."3X)"`D%$@$2`Q0E!`4&%18%1B<&)P;W]Q=1:D>K6FZ>/W==FK6]
  485. MH)Y32K*HUI),9F/72$ML_+FR3*W+M:C,&ZUCJ9+,6WB/9#$K'TM].Z]F07V&
  486. MO]AJ1R+S_;^T?*RUQ.-L_E;]VGY1);91JY[7MN7-(Q7]Q.J>=%4_Q[]B?V/?
  487. M/L[[19%*L<Y6>6M7:\<Y^457LTEQ\TIKQ_)_[6B>0OT9Y*S>X\G_`L_SLZP4
  488. M'\NMQ.Z-QGHN]SAO;O0T3JK_C]BDI.JY2KVP&;W^+VKNK17XB-_.(.V$,U9W
  489. M`SY97FTOKY_F"V])9V+M@%I:G2SWP_4;;=NLK=>ZHFV-VE%;ZVISM'\>3;*1
  490. M>_EH5JZEQ;8B^RP7[B];[$^*_8&4*_'^><#9-JI>;IG'-FIM;7M5.$_\<K>T
  491. MNE/\^.K5.E5RA;#X'<U5S-`RZ^TXXQ:T&;#/\M2&5;F`H<`>\&"Y5L!+KQF,
  492. M7SV/Q/KB-3=Y2]W"7NMDM\YS]VHS8:\O%U6";&?Y/WY?:TMM/Y@WN+TT2O,4
  493. M]9\_5">MEY;9[J:E_F%^::F%^G)K^:4QM-_4Y'%5/,WBC=0O%B^O5--L0?=.
  494. M_K'GE48KV^_5'<^^L0?W7`?]-^.-^;.0W=#=M(!U9S;-R2S807$GOQNRUV/X
  495. MA:,?/:$Z4Y-34_KI[7`9W4$G>3:9F>T?9H&R#\=?;NOT![UV-V1ZN'YGAOSD
  496. M-I@53WSRX;[<UDOK9K:5GDI3;@VS,;LV_R.Y=79:>JA>/P1L36Z#.8"LG/R1
  497. M^0S?9C[#-S?_0_-5F$%GD)VBW&)&J5^:W:LB@MUZT.D,DF<V&X1KF*M5B?(B
  498. M>E5F=$/WL]J`AU<ES,I\'5%NG9K2R>AFSLRG8$[SV:'YRMJSG=%-F4F7H5G[
  499. M1HZ]*E-39C;K60S>Z=6EIGSI,OGJJZR,3C\[):V3[)OP^'9O\F$V4Q?YNE&]
  500. MS'ZXSB`C6\8IFLUN&:"KKT)V,[PJ[%8T3ZST2#@J99"9V<\2CI;;8$ZY&4NK
  501. M,CN#4&&\&C8N8`ZYV9%O)&??29:;@CGD9@-5=37(#ATRU$RZ&)K3JTR`JT^W
  502. MLP8I@YG=G&:I:;7[2D9?M4\7J^7FZMW)ASG4YP'*7UF167T;)VF>C=-#$ZLR
  503. M>VGA^.4-TOLJFL.LY-:!"LDB&VXM)/-LN%F4'^!RJQ`6.=PFMX39?"-\Y)5&
  504. MYY5"\CWVY=P;KY.XAU=,:CY!7IXGM___[5S*V_%&;5!M3Y[@Q6/R-?`5WS[>
  505. M%N2!,V]IGI3'V\K)B?!,WU9N;@3,6UH:9*_1\K^VQ/JK(MSP,!'2X^N=*D(;
  506. M[ZQD_27K;.+R=7S].'3A1V*!DY_R,_T3Y+]CUA.Y,Z"O=KR<PEP7OD+&"`M!
  507. MS\BU%E!SH0Q)8^$0J=!I\9H8CXT3+K3]I'*#Y#G2V:41K[8O9R6^E3>?SSU>
  508. MX[^":?/??X\_49J3M'8G*ZW;2WZ>^RX</1^IB9&<9>]E6O:A_&`7H95N<IX-
  509. MA<[TG/S(&KWA62JX(KK_W+9]D]LEXS3)Q%]21F9^P2=_0<%L@O@+UJ5-D3%O
  510. M45\:<KM?[+)/Y:I6]];KLCTO9O3]4C'VF"Z?AZ<"N)KQ7LOY*V=EWV*QZICY
  511. M#4.F65.,=S>:A*E]8[9IG8'KZ*R]KWMZ-Q+/I?6"G<\3]>ZGA<4_;4WP>-ZO
  512. M9/>,XQJ-R%Z>.D?1B_^GT^?&-8%S'YTSVH]TE-$_K/L#S?Z>0%?W-L$1C6U4
  513. M0Z:OM[7H-4K_>IX)'/>15[U!\EY*QB;8-)/DO-\/W4[MIS@TQ)LO/=U^KN32
  514. ML1E3.O_\-+:QG-6J[77\<^S;NHZ&]C$KR8^;@=J3;4BCBH('6+`CZ$RB;I+^
  515. M+V;K47W?(,5^SHM/QD?&)R!Y^FTH*[<.L9+F]"][W]+'7+XQAR_,W+V0<_8B
  516. MY^I5#OM97<_2.7G2ETJQ',A%,Q=)QKW0\]1-XOQF]A0/]V-9,[2M[$'.BAK)
  517. M+3.5]55-*--_BUO=X^/+-SRIB4E%C/'M/^K]QWB6$T0*A+&9"V:1A2@N=-0:
  518. MKS]UN3<=Q7S<$1YQTMH8,=4GTD8)?=M:X?L2[86TW?,C_:'1J=O4V7W<YBQN
  519. M)M8<2<S#,LS;BWD+H?8GTM#G8J;"T\IUQBK(G;&9';+SL.9C]YKEPY,]V*$G
  520. MES^&Q55*'U0PS2KJ_Q(6\W"K*QSU^(U47D-=W>&61@#J_&,V76YN0A*]B4\\
  521. M`$/S7`:<F5H'PG5>*:%$G3\>B\D.A^M$,R.B*TYAI5S07`HUG&V:22ZD8;`5
  522. MM)51?#I$GZ-\*F,0*LP/6F)\3KSK*JK+:II+JQ&02Y72OZ0%4TGQ73,O3WF?
  523. MQC-25AR@%3\_<N3_2NWZ/K'ND7JXYQ>X9JS3<OZ:8>G9#\@7L/$_MLB.>F9&
  524. M"RUHP])70[IY+<VGD6:C^6U9E)(=27Z<)S@;(<@)VBAKB=)Q82W1A";>69>8
  525. M/\_U$B2KN2.-%>,OS;X9\]LRX<`(`!O@9B!GGC$-6T1V0>DI.A?H@UQ5#SXD
  526. M_EW$>TY?S3,G9_0\/"N5,_(X;A1PD9/B-\*_+\9Z_`"23YA7-*<Y32-V2;4C
  527. MW['!6)#?L9*//%%:(*Q7]YV55GR,OQ:/`&L.+S??X81BWI8I&`[`<WJ_LI$`
  528. MS2G;>W)SWPA%$A?&39AIOH4>^A8G&?H6MXE[$9Z%$0H8.VI)RB3H(JTMCR+,
  529. M1.VJ%PBQ4[X@K:KU"PB8T'8]?GWIR\*@IGU1[B7-#OEJ[ZH/7OY2G466_-6;
  530. M]Y"]')*3E/)YN"-R,ZHP;R<?A[-G^%"1*NH&\1J[[LE9VQ0U7X;3T2B0$Z^4
  531. M7\7(KZ&!HM6<<Y`-#471O*`%HB@C%@9^=6I,/E99(;`O1SDO\JWS<JMUKHTR
  532. M'5S5I$&YAJ4.3$(+.80M@6JCP)W<F7QJ\<#/6'S8M$YVO]WM\?B_476^FV6N
  533. MM56+\R@PC^<GG,M_6\LLZ4Y#Z$JG+*-6EGIGQ=JB9C7D=#BA/J36Y66E6U@W
  534. M(DRA3C];6>L&'*.?+G:@..%*;HT6NH46G'*(%KR!CR#CM[:F^OI[:"GJ<,+B
  535. MW_$\[HQNV+2P&?U>5KM7>!2.IJ.A%)Z][U%8^.0X).3V0B8</B5IJJLL)%C)
  536. M'!<PT7F#:I2`<HMJ:@63IZ<@I_E^2BQ;\UH$E0N`*N"*8#/P*FS'(GXY*0KS
  537. M'8AO-ZN-RR*)H2*SLCW#YPH^(,PM6G@^2K`$GZ]QXP4PNB1;4R^_^`(;Q;\I
  538. MR*;-HD%$#HEJ(5"_-PT[Y6)KJKV.'`@^LE>)`PSX`%V#&)H8HACBTT=#/>0P
  539. M*!,'Q^,;U=T3]2UWE(J1YGX$]$J\@@_'04VV(I1WRQSJVJF#)O(<N:$\?9"9
  540. MD=U.S^B&3)5JKOH)QC>=:MB[R.&RE"!>B`)')W!/"%8PWGM(9870$1'(9@Z=
  541. M=1-]'4GH=5Z7A+FY2^F^)%&M#IUI9@N)PLT5F"C5$G*OP4"X5H/"B))$E&\R
  542. M^W$,P4Y8':M:>R6^>O+P`",987HX&4B'TF;3,/X*DP&(V',7>><,SY'DESF,
  543. MBO:^DI$9%;R!BT0/BU`.+($G;E=\'9C'"?ZV!_;'?VNOKD:*]A'@6%R@M>OY
  544. M(ERH*/Y/@R9*39J\XP6P?;ER"$][=\+C!(D8[.!=<+(\8&'2>OTV&,OHV:):
  545. MC77THLZ`N*8<2D]$"`]AHP+AMI:GJ#VP(#M9/L1Y,)S_D`8O=0+A18HPM0([
  546. MQ"^)\`1\%'[\Z"QL]J'-VH2XP`>E-(HCUZ'3V#`)&;2+T4![%$<N6ZNQHSU3
  547. M^%3J;DT),W5'3\Y[8.X0-S<"Q*%X/;D.^2*_H]S<PX&;!'"ARO.Y,J;IS.*A
  548. M9[0]N9A9<I7(&H%[9%?56M)V;;&BK&G(N``.\DG>#8ZCS9D02',H%1L12CU5
  549. M?^Q0*B,W%`SU,]V.;DH'3%.3(XG`WLUJIX5M]S+"=0:=Y*Q!RD`F"3^KA/@$
  550. MV`*6/YF=1Y.V1Y"Q.DI0G86T"4MN\/7NU&!-X^/>8Z>GRMW$$Y7JNRI5EA=,
  551. MWQMQJ,6@.6G?8E]">/.G6J'`N,(,%H$3(6M8!$8;%*Z'H'GVZ50;]%00TAUQ
  552. M3BPS1!@`4-+`I"18:,`8-)&T`Q=(R^[^D5(ZI$1;X,`(::I"=^J(34H"`/J$
  553. M!Z;LRBE)J^<*:LKGY['"J"*X0Q052I=4CO,+0H17N+_$4[CQCF\(^^/Y3#7H
  554. MNKG5DH12E2!?JQUKP?\#PN[*`V/-^\8V1IR2:2$?;GV),NF(5Z@.GGU8.KLG
  555. M!0):!@UNHAA"30#EMG;66EV1BKA)AZ,W0G4F.ZYRQS>1D6A?\@6NJ9O_%Z8,
  556. MG&?K6L\?;I`=.F2H'Y[%!*8$0>0:D4)<K81R_'%53D0*EGD*$`,C-4I!(OZW
  557. MA#;96E9&IY^=DM9)QBV)()+_6I:K5:>2F"_P7Q!ICWP1&,>(;XR4!Y#'E!\7
  558. MVJLR'V1O[B9\J',A+6H4Y7,ZAZMEW91.,IS3<S4'/2=ST)"\`7$"YL25CI3X
  559. MW]4QDO`!9S*CR\4Y-_TIODX`8&.P+-'+2$T)3U)NQH9(3;&5;V3`M=A`KHN<
  560. M2FIKC\84I689&/AG=@;IH`4!=Y@6E_"7GVA:>$X.:F%Z:=F\A.\.TOO>CA)%
  561. MPEA.9/;2PF&.'Z2F=#*ZF8(2B8:"@9SPPV\W9'JX?D=S%#<FUC",8&"RT])#
  562. M]?HA;$=!X:)X!V@OK9O9-NSPBB3#A<VW'H1G`5!\_�Z0R2L2RY;5<LM`PD
  563. M,UG--(E%$I:#"H'Y#4TU)^-`J4-@W]$`E9R:TD]OPTI)NMG$<TOB>)1Q,LP$
  564. MCU$3D`R&RNKSSJ%Y*!MGLVKKM:YG!8?QMQ+;T-4G\$_LX`V8PZ'JK@<C])I[
  565. MV4]3UKBP1A8H.^FAPF1D<SAI@HE2"M@P@\X@.Z7?H0HK0"&%Z>.5X,4EK6)!
  566. MES0J/41T:NAHD-W0_:RVBEJA`HT*HH0*DR',.BGM"<<>^-<-_K+_9FVU)GGL
  567. M7^JUU1^]!0`N[1R"3\E>9E]>/8YW+L(!Z;9QX9H,!W^XJC`<,!(2`E3.-AS^
  568. M5&5H`APLZD3*(#.SG\4Y:<.!X2(#-&0W0Y(!UCC@4L.:.[A^+\#$)<I';7$A
  569. MQ4A$1:/@P!&(A+E(\R(""(=(MX]=&-%-?U(@'G^]1Q,#Y955B<+Y$7$&V379
  570. M,$X5=\-+/<?!2Y$8B&"83BZD[\$]%T$+H#C[]ABD(@*D4?9UG4%YI`6K.W?&
  571. M3K!'`<&XCP#[I!:#YU&$*H"Q8K/1F@B*!D-_:]LO>&=$8FHUE0^P!@SEWIA7
  572. MC?[W3<IS06DQK,A"M<1V-L[M/%KG[$^&*$@.C:UPL>_O8_2]RFS4H[9RQ[$Y
  573. M>NDY>3_71E*2"B?&@29+Q8()=IC%U)6+)2!@$5`,TE,!7*`.0]\O:38-GC@;
  574. M$?&QF9A&U'ETE:@/F[YV3Q6%=J.1'AK`1=7:D5`Y)Q!G$HWX"3H"5DZWNK#H
  575. M'P@/%"85'ABKZB0OMQ9!-:B>+$(GOWZM=2S,K*R)$"?RDSA;^]&HJ=ROH0;;
  576. M,[8#WUDUN(Z$H#<("1L@/-8,$S0P'%093*:5&P5(Z4UED0B5$7W1*UD$=D8]
  577. M`>%N&6+*"T/EB\*&^0A6/_F$N(?XN(.?'6B0MC;-QQVD3*I/.!KM/G`ZQ(F%
  578. MC7J/XX81IA`LMQ%8+)%6^W^Y9(@_>["0&4*F1)Z%!#<!`>5EI[J`M`P^$TLT
  579. MHV(TY$ECX(@*QFC&`%CS@[H^:$>!0ISP(`Q106H\%%)X7PFZ)7$S>)T^&Z$/
  580. MWAFXTC_J_;4@;@=EZDBG_%9B(4)C#B6,I"4Y-=V.G0KRE&B_CD60*J5#\?/0
  581. M,HSBNX1Q4#+B;\R"L+`H(X9B_3EJTV(,<,U6&**^3D(8@IU$L!6M-XRZ1=B(
  582. M,V"-DDZ1.)EM+)?>U)IW.:L@Q5*YE%?03EH_>>P*"2B-74'+2JY;6%BV9N(Z
  583. MNX*VM$C`'?Y<-"4*:A0:*^X7D]6G<E7Q^_<%_)'RGR+HMS=LWL.U5<Y;;3<N
  584. M"M]66`X&8Z*O\,Y_<L;(,BB04,@RK`(CIM/;4@;+7IN*3$<.FQ&@]KO)X7K]
  585. M5#7-,-O1T`HN+P2XG'B,%;WB9^'HL32T1%B:RRO5R&C'8%VX-H3A^C!7X5D<
  586. M.%Q*V6";I[$1S@;#3@]L`:$94U558SO/UZM.1$JB4%\ZG[,#"P<\C#,YX.:X
  587. M0[JMBC7TCS//9'EMB>8$9WA#OM5Q!A;\$RLO!9\:9.K_+[76)`"--8U*`.?I
  588. ML)KWZ]2D53U_/,8DO$&U7V<T,QPC[JR=SFB3NH5J^&B:E7*Y9@Y07UOKX(D?
  589. M`X2A@AU1HD2)\@6Q3RWTPPM?7I@NNE2%;=@5K,P[;OI$;9Q+J][&1GOK?#E!
  590. M)?(I)O85.5C6S'@`M`6A<0F%W[!,%_&Q'9B$`I`0N(8:>+R#1&KBB_OF17`(
  591. ME(B146<6U)PLS)S/Q.W!^J)UE=9.;"(4`MYK<9SJT[.-)-INIT$QD&\"A_HH
  592. M<$;0*!P!P"FV[W/>."<17L`K_2QXFKH(I3SAC&WLY:-9N8C^@_(@M$:(I/I6
  593. M<P+SR)%?VZK[AM0'O#&,FUU00$@8ELTB"(D0.#C2(WK.D<XU$C#EAMC0>X7?
  594. M'A#[=$YC8L/J&&6U(,363N7N)DUV)UE;Q3"SN6L%8D0TN+N$*L2J"A&TL2!C
  595. M'+'UL@>A`3ZK+H%=C+"D77[YY-5&SW]MUA)M])F^I%J?>[?JA<7CXCP)1=%L
  596. MRUZ.CS\WL%=8/"B>CL8B%<`[1(,>]\N.C']B*0+9)>CG*/WQ26^`\W-+T!,%
  597. M+"M<WBUWP3B'HJXXV+C8JAKO.]RB4:!_"M\@>P]+B<I5.UYW[EL3A!_DL:@V
  598. M>?0"$R1X4`LL3?D9_^0+FLDQYL\<$F'8O:AWQ.?3HP6G]<&66*[H^?^Y;?M&
  599. M9@O2&(.AF[1V>MXMC*6VKN.H'8DT>67?8@OL.`__X4CTIS:O'3=QC*L=!7U^
  600. MGM`&)"31[)#HE1+MS;VUWHT]_CS>F8Z\VKD6+'$R<)]M2=8K9OLSX<5ZDW%O
  601. MDMKOAV[C"O=9RWPIUNK+W5C.:E7JZHU([:<\"M6D,7RXVZM_9^35"%656#<U
  602. MY-N\4G89K1-SU<>13G4)U]IJ(7JF<IT=!3K>81%(_<E!WZ7-U>W%D%QE`X$6
  603. MNEH![>2^:*E20'SZ\%XJ86=C#E!+`P0*``0`!@``F!(9&]&-LK4!``#N`P``
  604. M"@```'5N=&AR96%D+F@RCA5NWP4?"H\''W4&!6\#)0,E!`\%%`,$!0\#!00%
  605. M%A5/`P]5'P8_!H\%__________]O$0(#!!($`Q($`P0'!@5<!)S]_0D`$B<&
  606. M!Q;W]_=7@P"/12-!@=%^-I4=W[RKZ_TG->R%>YU:MZLKY_UEW\Q<?<=V[;:M
  607. M+-,M;F"57;,I*Y5ISBTO/81=O4Z.=`DNK<6&["G\\RLCU201H<T_YZ<\;C34
  608. M-<MZ\Z^\>:>KR5Y2-]GQK+?(OF0G#ALMY_9Z1]NUHB3C[$C>>HLUY?6\RC@9
  609. M.9JL-7#R4GS5\]<*[1(^.7-7C$D,)H^_6'QEV$9@<O'\7`'BR])$ER4F^L?`
  610. MT42KA^'TK^0S.=@V.N3@+O_QZRZ4)N?.I/5G]\4<?)[*C[5QF_`R534\_?/#
  611. MI=$6A(^GBBTW/'8:HM.Z1M1MI32=RMMWZ0=$<U-:0]Y-59>7[??"D8C@:66]
  612. MI:FTOJ6\EWX7S$UP85K>QI5^;S`@L"#M-SQBCE3U#6=`CCYW.]B8-<U^QZC,
  613. MO[A6]KS>3+9?0SCOEO=4V@:NVO5>N]M)V`*U/`&&,'YYH8JM*#8EACSN:64@
  614. MJ%!+`0(*`PH````&`'V7$AF9==H>S@```*8!```(``````````````"D@0``
  615. M``!-86ME9FEL95!+`0(*`PH`!``&`.:K,AD?::C]H`(``"D$```&````````
  616. M``````"D@?0```!214%$34502P$""@,*``0`!@!]EQ(9"++QFED$``#<#```
  617. M"```````````````I(&X`P``87!P96YD+F-02P$""@,*``0`!@!]EQ(9E57D
  618. M+*@"``!B!@``"0``````````````I($W"```8V%P='5R92YC4$L!`@H#"@`$
  619. M``8`?9<2&6#*V]XX`P``7@8```4``````````````*2!!@L``&-V="YC4$L!
  620. M`@H#"@`$``8`?9<2&>N-G226`@``J00```<``````````````*2!80X``&1I
  621. M<S0X+F-02P$""@,*``0`!@!]EQ(9`;5:^&T"``#1!0``!P``````````````
  622. MI($<$0``9&ES-#@N:%!+`0(*`PH`!``&`'V7$AES38P(_`0``%@.```(````
  623. M``````````"D@:X3``!D:7-A<VTN8U!+`0(*`PH`!``&`'V7$AF6#`8&2@(`
  624. M`-X#```&``````````````"D@=`8``!D;V)J+F-02P$""@,*````!@!]EQ(9
  625. M;)'6)"8!``"\`0``!0``````````````I($^&P``9V5T+F-02P$""@,*``0`
  626. M!@"4JC(9W=VW]1L"``"Y`P``#0``````````````I(&''```:&1U;7`R:'!B
  627. M:6XN8U!+`0(*`PH`!``&``"8$AF;`H;BC`4``$P3```'``````````````"D
  628. M@<T>``!I;G-T<BYC4$L!`@H#"@`$``8``)@2&6&1]G\7`P``8PD```@`````
  629. M`````````*2!?B0``&EN<W1R,2YC4$L!`@H#"@`&``8``)@2&?)OF^`-!@``
  630. MDQD```@``````````````*2!NR<``&EN<W1R."YC4$L!`@H#"@`&``8``)@2
  631. M&4G.=7>1!@``\R(```4``````````````*2![BT``&]B:BYC4$L!`@H#"@`$
  632. M``8``)@2&8JK-ONN`@``%04```<``````````````*2!HC0``'1R86-E+F-0
  633. M2P$""@,*``8`!@`TG1(9WN5"_'05```X50``"@``````````````I(%U-P``
  634. M=6YT:')E860N8U!+`0(*`PH`!``&``"8$AD;T8VRM0$``.X#```*````````
  635. K``````"D@1%-``!U;G1H<F5A9"YH4$L%!@`````2`!(`Q0,``.Y.````````
  636. `
  637. end
  638. END_UU
  639.  
  640. BEGIN_SRC entries2.a
  641.     TITLE Unsupported ROM Entry Points V1.0 (19.09.1992)
  642.  
  643. =!!insertMesg#    EQU    #15D79 *
  644. =!CHANGETYPE    EQU    #05ACC *
  645. =!insert2spc$    EQU    #39F23 *
  646. =!insertspc$    EQU    #35051 *
  647. =##0    EQU    #03FEF *
  648. =##1    EQU    #03FF9 *
  649. =##10    EQU    #0408F *
  650. =##100    EQU    #64E32 *
  651. =##102    EQU    #64E3C *
  652. =##106    EQU    #64E46 *
  653. =##107    EQU    #64E50 *
  654. =##11    EQU    #04099 *
  655. =##110    EQU    #64E5A *
  656. =##111    EQU    #64E64 *
  657. =##117    EQU    #15D6F *
  658. =##118    EQU    #15DAB *
  659. =##12    EQU    #040A3 *
  660. =##123    EQU    #64E6E *
  661. =##124    EQU    #64E78 *
  662. =##13    EQU    #040AD *
  663. =##131    EQU    #64E82 *
  664. =##132    EQU    #64E8C *
  665. =##133    EQU    #64E96 *
  666. =##134    EQU    #64EA0 *
  667. =##135    EQU    #64EAA *
  668. =##136    EQU    #64EB4 *
  669. =##137    EQU    #64EBE *
  670. =##138    EQU    #64EC8 *
  671. =##139    EQU    #64ED2 *
  672. =##13A    EQU    #64EDC *
  673. =##13B    EQU    #64EE6 *
  674. =##13D    EQU    #64EF0 *
  675. =##13E    EQU    #64EFA *
  676. =##14    EQU    #040B7 *
  677. =##15    EQU    #040C1 *
  678. =##151    EQU    #64F04 *
  679. =##16    EQU    #040CB *
  680. =##17    EQU    #040D5 *
  681. =##18    EQU    #040DF *
  682. =##19    EQU    #040E9 *
  683. =##1A    EQU    #040F3 *
  684. =##1B    EQU    #040FD *
  685. =##1C    EQU    #04107 *
  686. =##1D    EQU    #04111 *
  687. =##1E    EQU    #0411B *
  688. =##1F    EQU    #04125 *
  689. =##2    EQU    #04003 *
  690. =##20    EQU    #0412F *
  691. =##200    EQU    #64F0E *
  692. =##204    EQU    #1CEAF *
  693. =##205    EQU    #64F18 *
  694. =##21    EQU    #04139 *
  695. =##22    EQU    #04143 *
  696. =##23    EQU    #0414D *
  697. =##24    EQU    #04157 *
  698. =##25    EQU    #04161 *
  699. =##26    EQU    #0416B *
  700. =##27    EQU    #04175 *
  701. =##28    EQU    #0417F *
  702. =##29    EQU    #04189 *
  703. =##2A    EQU    #04193 *
  704. =##2B    EQU    #0419D *
  705. =##2C    EQU    #64B12 *
  706. =##2D    EQU    #64B1C *
  707. =##2E    EQU    #64B26 *
  708. =##2F    EQU    #64B30 *
  709. =##2F000        EQU    #16B30 *
  710. =##3    EQU    #0400D *
  711. =##30    EQU    #64B3A *
  712. =##304    EQU    #1B147 *
  713. =##31    EQU    #64B44 *
  714. =##311    EQU    #64F22 *
  715. =##313    EQU    #1C930 *
  716. =##32    EQU    #64B4E *
  717. =##33    EQU    #65B58 *
  718. =##34    EQU    #64B62 *
  719. =##35    EQU    #64B6C *
  720. =##36    EQU    #64B76 *
  721. =##37    EQU    #64B80 *
  722. =##38    EQU    #64B8A *
  723. =##39    EQU    #64B94 *
  724. =##3A    EQU    #64B9E *
  725. =##3B    EQU    #64BA8 *
  726. =##3C    EQU    #64BB2 *
  727. =##3D    EQU    #64BBC *
  728. =##3E    EQU    #64BC6 *
  729. =##3F    EQU    #64BD0 *
  730. =##4    EQU    #04017 *
  731. =##40    EQU    #64BDA *
  732. =##4000    EQU    #16AD6 *
  733. =##41    EQU    #64BE4 *
  734. =##411    EQU    #64F2C *
  735. =##412    EQU    #64F36 *
  736. =##42    EQU    #64BEE *
  737. =##43    EQU    #64BF8 *
  738. =##44    EQU    #64C02 *
  739. =##444    EQU    #64F40 *
  740. =##45    EQU    #64C0C *
  741. =##451    EQU    #64F4A *
  742. =##452    EQU    #64F54 *
  743. =##46    EQU    #64C16 *
  744. =##4A    EQU    #64C20 *
  745. =##4F    EQU    #64C2A *
  746. =##5    EQU    #04021 *
  747. =##50    EQU    #64C34 *
  748. =##5000    EQU    #16AE5 *
  749. =##51    EQU    #64C3E *
  750. =##510    EQU    #64F5E *
  751. =##511    EQU    #64F68 *
  752. =##515    EQU    #1C93F *
  753. =##52    EQU    #64C48 *
  754. =##53    EQU    #64C52 *
  755. =##54    EQU    #64C5C *
  756. =##55    EQU    #64C66 *
  757. =##550    EQU    #64F72 *
  758. =##56    EQU    #64C70 *
  759. =##57    EQU    #64C7A *
  760. =##5B    EQU    #64C84 *
  761. =##5F    EQU    #1CCD8 *
  762. =##6    EQU    #0402B *
  763. =##60    EQU    #64C8E *
  764. =##61    EQU    #64C98 *
  765. =##610    EQU    #64F7C *
  766. =##62    EQU    #64CA2 *
  767. =##64    EQU    #64CAC *
  768. =##65    EQU    #64CB6 *
  769. =##650    EQU    #64F86 *
  770. =##6F    EQU    #64CC0 *
  771. =##7    EQU    #04035 *
  772. =##70    EQU    #64CCA *
  773. =##700    EQU    #64F90 *
  774. =##70000        EQU    #65094 *
  775. =##71    EQU    #64CD4 *
  776. =##710    EQU    #1D448 *
  777. =##72    EQU    #64CDE *
  778. =##73    EQU    #64CE8 *
  779. =##74    EQU    #64CF2 *
  780. =##75    EQU    #64CFC *
  781. =##750    EQU    #1D42F *
  782. =##7A    EQU    #64D06 *
  783. =##7F    EQU    #1CD16 *
  784. =##7FF    EQU    #08E14 *
  785. =##7FFFF        EQU    #6E148 *
  786. =##7FFFF>       EQU    #6E142 *
  787. =##8    EQU    #0403F *
  788. =##80    EQU    #64D10 *
  789. =##8000    EQU    #16AF4 *
  790. =##80000        EQU    #4F4D0 *
  791. =##82    EQU    #64D1A *
  792. =##822    EQU    #1C8A7 *
  793. =##82C    EQU    #1C921 *
  794. =##83    EQU    #64D24 *
  795. =##855    EQU    #1C898 *
  796. =##85C    EQU    #1C912 *
  797. =##861    EQU    #64F9A *
  798. =##862    EQU    #64FA4 *
  799. =##865    EQU    #64FAE *
  800. =##86E    EQU    #64FB8 *
  801. =##8F    EQU    #64D2E *
  802. =##9    EQU    #04049 *
  803. =##9000    EQU    #16B03 *
  804. =##91    EQU    #64D38 *
  805. =##92    EQU    #64D42 *
  806. =##9A    EQU    #64D4C *
  807. =##9E    EQU    #64D56 *
  808. =##9F    EQU    #64D60 *
  809. =##A    EQU    #04053 *
  810. =##A0    EQU    #64D6A *
  811. =##A03    EQU    #64FC2 *
  812. =##A1    EQU    #64D74 *
  813. =##A11    EQU    #64FCC *
  814. =##A12    EQU    #64FD6 *
  815. =##A1A    EQU    #64FE0 *
  816. =##A2    EQU    #64D7E *
  817. =##A21    EQU    #64FEA *
  818. =##A22    EQU    #64FF4 *
  819. =##A2A    EQU    #64FFE *
  820. =##A5    EQU    #64D88 *
  821. =##A6    EQU    #64D92 *
  822. =##A61    EQU    #65008 *
  823. =##A62    EQU    #65012 *
  824. =##A65    EQU    #6501C *
  825. =##A6E    EQU    #65026 *
  826. =##A7    EQU    #64D9C *
  827. =##A9    EQU    #64DA6 *
  828. =##AA    EQU    #64DB0 *
  829. =##AA1    EQU    #65030 *
  830. =##AA2    EQU    #6503A *
  831. =##AAA    EQU    #65044 *
  832. =##AE    EQU    #64DBA *
  833. =##AF    EQU    #1CD69 *
  834. =##B    EQU    #0405D *
  835. =##B1    EQU    #64DC4 *
  836. =##B8    EQU    #17F4A *
  837. =##C    EQU    #04067 *
  838. =##C0    EQU    #64DD8 *
  839. =##C06    EQU    #6504E *
  840. =##C07    EQU    #65058 *
  841. =##C08    EQU    #65062 *
  842. =##C0A    EQU    #6506C *
  843. =##C0B    EQU    #65076 *
  844. =##C22    EQU    #1C889 *
  845. =##C2C    EQU    #1C903 *
  846. =##C55    EQU    #1C87A *
  847. =##C5C    EQU    #1C8F4 *
  848. =##C8    EQU    #20D2C *
  849. =##CC    EQU    #64DE2 *
  850. =##D    EQU    #04071 *
  851. =##D0    EQU    #64DEC *
  852. =##D000    EQU    #16B21 *
  853. =##DFF    EQU    #65080 *
  854. =##E    EQU    #0407B *
  855. =##E00    EQU    #6508A *
  856. =##E000    EQU    #16B12 *
  857. =##E1    EQU    #64DF6 *
  858. =##EA    EQU    #64E00 *
  859. =##EE    EQU    #64E0A *
  860. =##F    EQU    #04085 *
  861. =##F0    EQU    #64E14 *
  862. =##FD    EQU    #64E1E *
  863. =##FF    EQU    #64E28 *
  864. =##FFFFF        EQU    #6509E *
  865. =#+#<    EQU    #50316 *
  866. =#+OVF    EQU    #25B0B *
  867. =#-#-    EQU    #4280E *
  868. =#-#5+    EQU    #41D42 *
  869. =#-OVF    EQU    #6D28B *
  870. =#-TRUE    EQU    #45897 *
  871. =#1+ROTDROP     EQU    #41E00 *
  872. =#1+TRUE        EQU    #265D9 *
  873. =#1-SWAP        EQU    #5E4A9 *
  874. =#1-TRUE        EQU    #107A7 *
  875. =#2^    EQU    #536FB *
  876. =#4=    EQU    #5A473 *
  877. =#>LIBID        EQU    #081B9 *
  878. =#A+    EQU    #45301 *
  879. =#SYSEVAL       EQU    #1A556 *
  880. =$<$?    EQU    #142A6 *
  881. =$<=$?    EQU    #142E2 *
  882. =$>$?    EQU    #1420A *
  883. =$>=$?    EQU    #142BA *
  884. =$_()    EQU    #6573B *
  885. =$_C$    EQU    #6533E *
  886. =$_GROB    EQU    #6532C *
  887. =$_UNKNOWN      EQU    #65260 *
  888. =%%+C%%    EQU    #51CB1 *
  889. =%%-C%%    EQU    #51D24 *
  890. =%%/C%%    EQU    #51F3B *
  891. =%%0.7    EQU    #52A2F *
  892. =%%0<    EQU    #2A727 *
  893. =%%1+    EQU    #2C1DF *
  894. =%%100    EQU    #2C1C4 *
  895. =%%32    EQU    #0F547 *
  896. =%%>C%%    EQU    #05C8A *
  897. =%%KZERO        EQU    #10E9C *
  898. =%%PI    EQU    #2A458 *
  899. =%%RZERO        EQU    #10EB6 *
  900. =%%SQR    EQU    #51A94 *
  901. =%%SUM    EQU    #56AC9 *
  902. =%*C%    EQU    #51D60 *
  903. =%+C%    EQU    #51BF8 *
  904. =%+C%>C%%       EQU    #37C48 *
  905. =%-.5    EQU    #650D2 *
  906. =%-260    EQU    #2B139 *
  907. =%-ABS    EQU    #503B1 *
  908. =%-C%    EQU    #51CD4 *
  909. =%-C%>C%%       EQU    #37CC5 *
  910. =%/C%    EQU    #51E19 *
  911. =%1%-1    EQU    #4949B *
  912. =%18    EQU    #1CDF2 *
  913. =%19    EQU    #1CE07 *
  914. =%1pshm1        EQU    #5FC38 *
  915. =%2.5    EQU    #1A223 *
  916. =%200    EQU    #65111 *
  917. =%260    EQU    #2B0CE *
  918. =%2PI    EQU    #514EB *
  919. =%40    EQU    #49161 *
  920. =%400    EQU    #6513B *
  921. =%9     EQU    #2A371 *
  922. =%>%%*    EQU    #2A9A6 *
  923. =%>%%+    EQU    #35804 *
  924. =%>%%-    EQU    #3581E *
  925. =%HMS>%%        EQU    #2AF3A *
  926. =%INT    EQU    #2AFAC *
  927. =%INTFACT       EQU    #2B171 *
  928. =%MAXIMIZE      EQU    #51AB7 *
  929. =%SINRAD        EQU    #2AC27 *
  930. =%SQ    EQU    #1B47B *
  931. =%SYM%CH        EQU    #55CA1 *
  932. =%SYM%T    EQU    #55CEC *
  933. =%SYM<    EQU    #55B2A *
  934. =%SYM<=    EQU    #55BC0 *
  935. =%SYM>    EQU    #55B75 *
  936. =%SYM>=    EQU    #55C0B *
  937. =%SYMAND        EQU    #559B3 *
  938. =%SYMCOMB       EQU    #55D37 *
  939. =%SYMMAX        EQU    #55E63 *
  940. =%SYMMIN        EQU    #55EAE *
  941. =%SYMMOD        EQU    #56070 *
  942. =%SYMOF    EQU    #55C56 *
  943. =%SYMOR    EQU    #559FE *
  944. =%SYMPERM       EQU    #55D82 *
  945. =%SYMSUM        EQU    #56A4C *
  946. =%SYMXOR        EQU    #55A49 *
  947. =%SYMXROOT      EQU    #560BB *
  948. =%TICKSday      EQU    #0F02D *
  949. =%TICKSmin      EQU    #0F003 *
  950. =%TICKSsec      EQU    #0EFEE *
  951. =%TICKSweek     EQU    #0F042 *
  952. =%TIKCShour     EQU    #0F018 *
  953. =%UTPC    EQU    #2C149 *
  954. =%UTPF    EQU    #2C174 *
  955. =%UTPN    EQU    #2C09F *
  956. =%UTPT    EQU    #2C19A *
  957. ='ID_EQ    EQU    #15758 *
  958. ='ID_UserKeys    EQU    #41A39 *
  959. ='NULLID        EQU    #15777 *
  960. ='Raddtail$     EQU    #148C0 *
  961. =-C%%CONJ       EQU    #36DEB *
  962. =14PACE$        EQU    #65212 *
  963. =1GETLAMSWP1+    EQU    #55288 *
  964. =1LAMRsDO       EQU    #58CE4 *
  965. =1POLKeyUI      EQU    #38B09 *
  966. =1_?    EQU    #0FB4A *
  967. =1_A    EQU    #0FAA4 *
  968. =1_K    EQU    #0FAE4 *
  969. =1_cd    EQU    #0FB04 *
  970. =1_kg    EQU    #0FA58 *
  971. =1_m    EQU    #0FA84 *
  972. =1_mol    EQU    #0FB26 *
  973. =1_s    EQU    #0FAC4 *
  974. =2%>%%SQR       EQU    #51A71 *
  975. =2DROP%%0       EQU    #5291C *
  976. =2DROP%0        EQU    #1F047 *
  977. =2DROP1GETLAM    EQU    #4CA9B *
  978. =2DROPNULL$     EQU    #04D57 *
  979. =2DROPONE       EQU    #6E661 *
  980. =2DROPSWAP      EQU    #6E25B *
  981. =2DROPTRUETRUE    EQU    #25A66 *
  982. =2DROPpullDROP    EQU    #5843F *
  983. =2DRPSWPDRPTru    EQU    #0F1FF *
  984. =2DUP%%R        EQU    #520B2 *
  985. =2DUPMAT*       EQU    #36494 *
  986. =2DropBadKey    EQU    #3FDBD *
  987. =2Drp2dropFls    EQU    #57414 *
  988. =2HXS>#    EQU      #4F3D1 *
  989. =2INNER    EQU    #5E30C *
  990. =2INNERtop&     EQU    #5E2F8 *
  991. =2LEN$#+        EQU    #1782E *
  992. =2NULLLAM{}     EQU    #26D5A *
  993. =2SKIP    EQU    #0715C *
  994. =2SKIPOB        EQU    #03012 =
  995. =2SPACE$        EQU    #25CF5 *
  996. =2drop%-1#1     EQU    #561D8 *
  997. =2drop%0#1      EQU    #56183 *
  998. =2psh1&rev      EQU    #5DD65 *
  999. =2pulldrop      EQU    #5CC12 *
  1000. =2top&    EQU    #5E490 *
  1001. =3DROPFALSETRU    EQU    #25BBF *
  1002. =3DROPNULL$     EQU    #45469 *
  1003. =3DROPTRUE      EQU    #5F657 *
  1004. =3DROPZERO      EQU    #64449 *
  1005. =3DRPDoBadKey    EQU    #6ED0F *
  1006. =3NULLLAM{}     EQU    #36D82 *
  1007. =3PICK#1+       EQU    #5E8C0 *
  1008. =3PICK#2+       EQU    #5E8A2 *
  1009. =3PICKEQUALcse    EQU    #5EFD9 *
  1010. =3SKIP    EQU    #283D8 *
  1011. =3pulldrop      EQU    #59FB9 *
  1012. =4DROP%0        EQU    #56AFB *
  1013. =4DROP%0%0      EQU    #52C4A *
  1014. =4DROPFALSE     EQU    #5F5E4 *
  1015. =4DROPTRUE      EQU    #10029 *
  1016. =4ROLLDROPTRUE    EQU    #6D414 *
  1017. =4roll    EQU    #5EBC6 *
  1018. =4unroll        EQU    #5EBEA *
  1019. =5DROPFALSE     EQU    #5F6B1 *
  1020. =5roll    EQU    #5ED45 *
  1021. =5unroll        EQU    #5ED5A *
  1022. =8NULLLAM{}     EQU    #49199 *
  1023. =9UNROLL        EQU    #174F0 *
  1024. =>BAK    EQU    #21674 *
  1025. =>COMP    EQU    #05331 *
  1026. =>EqWriter      EQU    #68BDA *
  1027. =>HCOMP    EQU    #052C6 *
  1028. =>MatrixWriter    EQU    #44FE7 *
  1029. =>Menu    EQU    #3A260 *
  1030. =>STR    EQU    #15B31 *
  1031. =>STREDIT       EQU    #15B3D *
  1032. =?ATTNQUITNoWD    EQU    #4241B *
  1033. =?DispStack     EQU    #39B85 *
  1034. =?DispStatus    EQU    #3959C *
  1035. =?HiddenDir@    EQU    #0B9E8 *
  1036. =?SHOWTIME      EQU    #39AD8 *
  1037. =?UpDispStack    EQU    #437A2 *
  1038. =?rompOKINALG    EQU    #26AB9 *
  1039. =?secoOKINALG    EQU    #26A82 *
  1040. =@DcompWidth    EQU    #17980 *
  1041. =@LAM?ERROR     EQU    #02FD6 *
  1042. =@XLIB?ERROR    EQU    #02FEF *
  1043. =ABNDEQUAL>%    EQU    #54AE2 *
  1044. =ABNDSYMBN      EQU    #56E16 *
  1045. =ABSBF%    EQU    #37D5B *
  1046. =ACK    EQU    #0DDC1 *
  1047. =ACKALL    EQU    #0DDA8 *
  1048. =ALGINTEG       EQU    #1F27A *
  1049. =ALLMENUS{}     EQU    #3B234 *
  1050. =APPprompt1     EQU    #47975 *
  1051. =APPprompt2!    EQU    #479B6 *
  1052. =ASN    EQU    #41E78 *
  1053. =ASN%    EQU    #41B28 *
  1054. =ATTN?ExitAtLp    EQU    #4BE23 *
  1055. =ATTN?SEMI      EQU    #35831 *
  1056. =ATTNNOT?LOOP    EQU    #35849 *
  1057. =Alarmsptr      EQU    #705AB =
  1058. =AlgEntryOn?    EQU    #53968 *
  1059. =AngleFlags     EQU    #53BF1 *
  1060. =AppDisplay@    EQU    #38C18 *
  1061. =AppError@      EQU    #38CAB *
  1062. =AppExitCond@    EQU    #38C78 *
  1063. =AppKeys@       EQU    #38C48 *
  1064. =AppMode?       EQU    #38CFB *
  1065. =AppSuspOK?     EQU    #38D79 *
  1066. =AppexpDataGet    EQU    #26F37 *
  1067. =B%%>B%    EQU    #3675A *
  1068. =BAK>    EQU    #0948E *
  1069. =BAK>$    EQU    #15D97 *
  1070. =BAK>HOME       EQU    #09699 *
  1071. =BAK>ID    EQU    #081D9 *
  1072. =BASECHAR       EQU    #5407A *
  1073. =BASEHEX        EQU    #54050 *
  1074. =BAUDOK?        EQU    #2EC52 *
  1075. =BF%0=    EQU    #37DA1 *
  1076. =BF%>F%%        EQU    #37C7A *
  1077. =BROADENGROB    EQU    #12BB7 *
  1078. =BROADENHBUFF    EQU    #1297D *
  1079. =BigArrow       EQU    #66F5D *
  1080. =BigBlank       EQU    #66F35 *
  1081. =BoxLabelGrob    EQU    #3A399 *
  1082. =C%%*    EQU    #51DE2 *
  1083. =C%%*%%    EQU    #51DAB *
  1084. =C%%+    EQU    #51C3E *
  1085. =C%%+%%    EQU    #51C9D *
  1086. =C%%-    EQU    #51D10 *
  1087. =C%%-%%    EQU    #51D38 *
  1088. =C%%/    EQU    #51F13 *
  1089. =C%%/%%    EQU    #51F7C *
  1090. =C%%ABS    EQU    #52080 *
  1091. =C%*    EQU    #51D88 *
  1092. =C%*%    EQU    #51D4C *
  1093. =C%*i    EQU    #51A4A *
  1094. =C%+    EQU    #51C16 *
  1095. =C%+%    EQU    #51BD0 *
  1096. =C%+%>C%%       EQU    #37C66 *
  1097. =C%-    EQU    #51CFC *
  1098. =C%-%    EQU    #51CE8 *
  1099. =C%-%>C%%       EQU    #37CD9 *
  1100. =C%-1=case      EQU    #5F285 *
  1101. =C%-i    EQU    #526AE *
  1102. =C%/    EQU    #51EC8 *
  1103. =C%/%    EQU    #51E64 *
  1104. =C%/i    EQU    #51A5F *
  1105. =C%0=case       EQU    #5F13B *
  1106. =C%1=case       EQU    #5F19F *
  1107. =C%2=case       EQU    #5F208 *
  1108. =C%>C%%+        EQU    #37C20 *
  1109. =C%>C%%-        EQU    #37CB1 *
  1110. =C%RND    EQU    #35EC2 *
  1111. =C%SQ    EQU    #1B48F *
  1112. =C%TRNC    EQU    #35F17 *
  1113. =C%i    EQU    #5267F *
  1114. =CARLAM>ID      EQU    #05EEA *
  1115. =CK%ACOS        EQU    #1B775 *
  1116. =CK%ACOSH       EQU    #1B86C *
  1117. =CK%ASIN        EQU    #1B6EA *
  1118. =CK%ATANH       EQU    #1B8DE *
  1119. =CK%LN    EQU    #1B995 *
  1120. =CK%LOG    EQU    #1BA0C *
  1121. =CK%SQRT        EQU    #1B3F5 *
  1122. =CK%^    EQU    #1B124 *
  1123. =CK2DIMS        EQU    #37B9E *
  1124. =CKC%>%    EQU    #4959B *
  1125. =CKCARCOMP      EQU    #510C1 *
  1126. =CKEdit$        EQU    #42BFC *
  1127. =CKID>$    EQU    #40A0B *
  1128. =CKNFLOATS      EQU    #19207 *
  1129. =CKOb>Seco      EQU    #1515B *
  1130. =CKSQUARE[]     EQU    #37B7B *
  1131. =CKSYMBN        EQU    #5E085 *
  1132. =CKTIME    EQU    #0D9C7 *
  1133. =CKTYPE{}       EQU    #1945C *
  1134. =CKXHARDBUFF    EQU    #128E3 *
  1135. =CKYHARDBUFF    EQU    #128BA *
  1136. =CMDLIB?        EQU    #269DB *
  1137. =CMDXLIB?       EQU    #269BD *
  1138. =COLADROP       EQU    #517DA *
  1139. =COLAEVAL:      EQU    #5FB5D *
  1140. =COLAFALSE      EQU    #5DE55 *
  1141. =COLATRUE       EQU    #5DE41 *
  1142. =COLAkeep1st    EQU    #5483C *
  1143. =COLAskipcola    EQU    #283C4 *
  1144. =COMPLEXDUMMY    EQU    #1F996 *
  1145. =CONTEXTptr     EQU    #7059C =
  1146. =CORR    EQU    #2C48B *
  1147. =COV    EQU    #2C8F5 *
  1148. =CRDIR#    EQU      #07819 *
  1149. =CROSSVECTOR?    EQU    #16973 *
  1150. =CRS>LEFT       EQU    #3A87A *
  1151. =CRS>RIGHT      EQU    #3A924 *
  1152. =CRS>UP    EQU    #3A974 *
  1153. =Charaddr       EQU    #11F2E =
  1154. =ClAppExitCond    EQU    #38C88 *
  1155. =ClkMode?       EQU    #0D2A5 *
  1156. =CloseUart      EQU    #315F9 =
  1157. =Clr1USR        EQU    #40D7A *
  1158. =ClrAlgEntry    EQU    #53984 *
  1159. =ClrAlgSetPrgm    EQU    #42F30 *
  1160. =ClrAppDisplay    EQU    #38C28 *
  1161. =ClrAppError    EQU    #38CBE *
  1162. =ClrAppKeys     EQU    #38C58 *
  1163. =ClrAppMode     EQU    #38D17 *
  1164. =ClrDA1Bad      EQU    #39489 *
  1165. =ClrDA1NoCh     EQU    #393E1 *
  1166. =ClrDA1ValidF    EQU    #39291 *
  1167. =ClrDA2OK       EQU    #39117 *
  1168. =ClrDA2aBad     EQU    #394B3 *
  1169. =ClrDA2aNoCh    EQU    #3940B *
  1170. =ClrDA2aOK      EQU    #390E5 *
  1171. =ClrDA2aValidF    EQU    #392BB *
  1172. =ClrDA2bBad     EQU    #394DD *
  1173. =ClrDA2bNoCh    EQU    #39435 *
  1174. =ClrDA2bOK      EQU    #390FE *
  1175. =ClrDA2bValidF    EQU    #392E5 *
  1176. =ClrDA3NoCh     EQU    #3945F *
  1177. =ClrDA3ValidF    EQU    #3930F *
  1178. =ClrDelayedA    EQU    #1156C *
  1179. =ClrDoStdKeys    EQU    #38D6B *
  1180. =ClrINSmode     EQU    #53A20 *
  1181. =ClrLastArgs    EQU    #112EC *
  1182. =ClrLowCase     EQU    #539AE *
  1183. =ClrNAppKeyOK    EQU    #38D41 *
  1184. =ClrNumFlag     EQU    #53B88 *
  1185. =ClrPrgExecAnn    EQU    #11320 *
  1186. =ClrPrgmEntry    EQU    #1155C *
  1187. =ClrShowClock    EQU    #53ABA *
  1188. =ClrStdKeys     EQU    #3FF97 *
  1189. =ClrUSR1MODE    EQU    #3FFCA *
  1190. =CmdFlagSet?    EQU    #26B40 *
  1191. =CmdLineTop?    EQU    #4272D *
  1192. =ColumnMAX      EQU    #2CCDF *
  1193. =ColumnMEAN     EQU    #2CD13 *
  1194. =ColumnMIN      EQU    #2CCF8 *
  1195. =ColumnSDEV     EQU    #2CD31 *
  1196. =ColumnSQR      EQU    #2CE53 *
  1197. =ColumnTOT      EQU    #2CD04 *
  1198. =ColumnVAR      EQU    #2CD22 *
  1199. =ConfigLibs     EQU    #021E4 *
  1200. =ConfigLibs{}    EQU    #02216 *
  1201. =ContISOL       EQU    #57621 *
  1202. =CurMenu!       EQU    #41894 *
  1203. =CurMenu@       EQU    #418A4 *
  1204. =CurMenuOffset    EQU    #707C9 =
  1205. =DA1Bad?        EQU    #3946D *
  1206. =DA1IsStat?     EQU    #39515 *
  1207. =DA1NoCh?       EQU    #393C5 *
  1208. =DA1ValidF      EQU    #39283 *
  1209. =DA2OK?    EQU    #38E9C *
  1210. =DA2aBad?       EQU    #39497 *
  1211. =DA2aNoCh?      EQU    #393EF *
  1212. =DA2aOK?        EQU    #38DFC *
  1213. =DA2aValidF?    EQU    #3929F *
  1214. =DA2bBad?       EQU    #394C1 *
  1215. =DA2bNoCh?      EQU    #39419 *
  1216. =DA2bOK?        EQU    #38E4C *
  1217. =DA2bValidF?    EQU    #392C9 *
  1218. =DA3Bad?        EQU    #394EB *
  1219. =DA3NoCh?       EQU    #39433 *
  1220. =DA3ValidF?     EQU    #392F3 *
  1221. =DABad?    EQU    #39248 *
  1222. =DARRYTYPE%%1    EQU    #36F6C *
  1223. =DATEOK?        EQU    #0E630 *
  1224. =DAsOK?    EQU    #38F05 *
  1225. =DECR2LAM       EQU    #43AAE *
  1226. =DEG?    EQU    #53BC9 *
  1227. =DELALLKEYS     EQU    #41F13 *
  1228. =DELKEY    EQU    #41B8C *
  1229. =DELKEY%        EQU    #41B69 *
  1230. =DELKEYS{}      EQU    #41B3C *
  1231. =DERCONJ        EQU    #56CAE *
  1232. =DERNEG    EQU    #56C90 *
  1233. =DERsInComp?    EQU    #54BF5 *
  1234. =DET2    EQU    #36AC5 *
  1235. =DETN    EQU    #36D41 *
  1236. =DIMLIMITS>%    EQU    #1CA4E *
  1237. =DIRATTACH      EQU    #21CBA *
  1238. =DIRDETACH      EQU    #21D2B *
  1239. =DNAMELIST?cse    EQU    #21DF1 *
  1240. =DNOTSYMB?SEMI    EQU    #18E45 *
  1241. =DO>GROB        EQU    #5048D *
  1242. =DOBAK    EQU    #02B62 *
  1243. =DOBIND    EQU    #074E4 *
  1244. =DOCKSM    EQU    #2ED4C *
  1245. =DODIR    EQU    #02A96 *
  1246. =DOEXT1    EQU    #02BAA *
  1247. =DOEXT2    EQU    #02BCC *
  1248. =DOEXT3    EQU    #02BEE *
  1249. =DOEXT4    EQU    #02C10 *
  1250. =DOHXSEXIT      EQU    #1501B *
  1251. =DOLNKARRY      EQU    #02A0A *
  1252. =DOLONGCMP      EQU    #0299D *
  1253. =DOLONGREAL     EQU    #02955 *
  1254. =DONUM    EQU    #1410F *
  1255. =DOPRG1[]       EQU    #35C2C *
  1256. =DOPRG2[]       EQU    #35C63 *
  1257. =DOSTIME        EQU    #2EDF5 *
  1258. =DOSYMB    EQU    #02AB8 *
  1259. =DOTAG    EQU    #02AFC *
  1260. =DOWNMATCH      EQU    #1FACE *
  1261. =DOXMIT    EQU    #2EE6F *
  1262. =DQUOTESin$     EQU    #1606C *
  1263. =DROMPTR@Ncase    EQU    #29202 *
  1264. =DROP#1=        EQU    #5A4A5 *
  1265. =DROP#2+PICK    EQU    #6EE95 *
  1266. =DROP%%0<       EQU    #529F3 *
  1267. =DROP%0    EQU    #5198F *
  1268. =DROP%0ABND     EQU    #54B1E *
  1269. =DROP%1    EQU    #1CA0D *
  1270. =DROP%1ABND     EQU    #54A9C *
  1271. =DROP1-DUPROLL    EQU    #10301 *
  1272. =DROP3PICK      EQU    #35D08 *
  1273. =DROP3PUTLAM    EQU    #43BDA *
  1274. =DROPCOLA       EQU    #28585 *
  1275. =DROPCOLAFALSE    EQU    #576DF *
  1276. =DROPCOLASKIP    EQU    #21E41 *
  1277. =DROPCOLATRUE    EQU    #576CB *
  1278. =DROPDUPLEN$1+    EQU    #127CA *
  1279. =DROPDoBadKey    EQU    #5186B *
  1280. =DROPFALSETRUE    EQU    #25C0A *
  1281. =DROPNULL$      EQU    #19EE1 *
  1282. =DROPSEVEN      EQU    #14314 *
  1283. =DROPXHI        EQU    #51238 *
  1284. =DROPYHI        EQU    #51260 *
  1285. =DROPdrop       EQU    #63FA6 *
  1286. =DROPdrop%0#1    EQU    #5643A *
  1287. =DROPdropw3#1    EQU    #56309 *
  1288. =DROPeven#?     EQU    #5A4B9 *
  1289. =DRPaddt:SYMBN    EQU    #56C27 *
  1290. =DSKBOT    EQU    #7057E =
  1291. =DTYPELREAL?    EQU    #37AE0 *
  1292. =DTYPEREAL?cse    EQU    #21638 *
  1293. =DUMMYcase      EQU    #5F537 *
  1294. =DUP#0=UNTIL    EQU    #62B6F *
  1295. =DUP#2+PICK     EQU    #5FC24 *
  1296. =DUP#2+ROLL     EQU    #61305 *
  1297. =DUP&NAME?      EQU    #5FF73 *
  1298. =DUP1PUTLAM     EQU    #5AFF1 *
  1299. =DUP@_HERE      EQU    #18536 *
  1300. =DUPAndThen     EQU    #641C7 *
  1301. =DUPExitAtLOOP    EQU    #3F78C *
  1302. =DUPFPLEN       EQU    #5A55E *
  1303. =DUPNOT?SEMI    EQU    #26C1C *
  1304. =DUPNOT[]?ERR    EQU    #193C1 *
  1305. =DUPNOT{}?ERR    EQU    #19443 *
  1306. =DUPROLLDROP    EQU    #107D4 *
  1307. =DUPROLLSWAP    EQU    #35222 *
  1308. =DUPTRUE        EQU    #265C5 *
  1309. =DUPTYPECOMP?    EQU    #15694 *
  1310. =DUPU>nbr       EQU    #1003D *
  1311. =DUP[%]?ERR     EQU    #194D9 *
  1312. =DUP[C%]?ERR    EQU    #194BB *
  1313. =DcompWidth     EQU    #70770 =
  1314. =DelayedA       EQU    #70793 =
  1315. =DelayedA?      EQU    #11501 *
  1316. =DerDataGet     EQU    #26F0D *
  1317. =Dir?Dir/StdLb    EQU    #3A2FB *
  1318. =DirLabel:      EQU    #3ED6B *
  1319. =DirLabelGrob    EQU    #3A3FB *
  1320. =DispArgs?      EQU    #26C47 *
  1321. =DispStack      EQU    #39BAD *
  1322. =DispStatus     EQU    #395BA *
  1323. =DoBadKeyFALSE    EQU    #6AF09 *
  1324. =DoDBUGkey      EQU    #1508E *
  1325. =DoExitAction@    EQU    #419D4 *
  1326. =DoMenuKeyLS@    EQU    #41954 *
  1327. =DoMenuKeyNS@    EQU    #41934 *
  1328. =DoMenuKeyRS@    EQU    #41974 *
  1329. =DoMenuRowAct@    EQU    #418E4 *
  1330. =DoNEXTkey      EQU    #144AC *
  1331. =DoReviewKey@    EQU    #41994 *
  1332. =DoSSTdownkey    EQU    #144DE *
  1333. =DoSSTkey       EQU    #14506 *
  1334. =DoStdKeys?     EQU    #38D4F *
  1335. =DropBadKey     EQU    #3FDC7 *
  1336. =Drp2dropFls    EQU    #57428 *
  1337. =DrpExitAtLOOP    EQU    #4334F *
  1338. =DrpMkLegalSym    EQU    #5F384 *
  1339. =DupPrefixChr?    EQU    #0C288 *
  1340. =DupSIUnit$?    EQU    #0C2CB *
  1341. =EQUALcasedrop    EQU    #517F3 *
  1342. =EQWR!    EQU    #6BCE5 *
  1343. =EQWR*    EQU    #6BA97 *
  1344. =EQWR+    EQU    #6BA97 *
  1345. =EQWR-    EQU    #6BA97 *
  1346. =EQWR/    EQU    #6C02D *
  1347. =EQWR=    EQU    #6DE50 *
  1348. =EQWRDER        EQU    #6CB90 *
  1349. =EQWRINTG       EQU    #6C596 *
  1350. =EQWRNEG        EQU    #6B355 *
  1351. =EQWRNOP        EQU    #6B3A5 *
  1352. =EQWRNOT        EQU    #6B3F5 *
  1353. =EQWRRATIO      EQU    #6C069 *
  1354. =EQWRSQRT       EQU    #6B86C *
  1355. =EQWRWHERE      EQU    #6BD7B *
  1356. =EQWRXROOT      EQU    #6B8A8 *
  1357. =EQWR^    EQU    #6C4D3 *
  1358. =EVALABND       EQU    #546C5 *
  1359. =EVALCOLASKP    EQU    #5CD5C *
  1360. =EVALCOLASKP:    EQU    #5CD52 *
  1361. =EXPLODESYMB    EQU    #5F2A3 *
  1362. =EdCOMP>$       EQU    #161D0 *
  1363. =EdGROB>$       EQU    #15E1F *
  1364. =Element?#      EQU   #03685 *
  1365. =EqWriter       EQU    #68B7B *
  1366. =EvalNoCK:      EQU    #18F6A *
  1367. =ExecOnDirVars    EQU    #1867F *
  1368. =ExitAtLOOPDUP    EQU    #3F7EB *
  1369. =F%%*    EQU    #37CED *
  1370. =F%%/    EQU    #37D24 *
  1371. =F%>F%%    EQU    #37DC4 *
  1372. =F%>F%%+        EQU    #37BE9 *
  1373. =FETCH2[]       EQU    #367C3 *
  1374. =FLOATSYM<>     EQU    #55ADF *
  1375. =FLOATSYM==     EQU    #55A94 *
  1376. =FORMAPPLY      EQU    #5A298 *
  1377. =FORMDER        EQU    #5A211 *
  1378. =FORMIFTE       EQU    #5A270 *
  1379. =FORMINTG       EQU    #5A22A *
  1380. =FORMQUOTE      EQU    #5A284 *
  1381. =FORMSUM        EQU    #5A243 *
  1382. =FORMUNIT       EQU    #5A2B1 *
  1383. =FORMWHERE      EQU    #5A257 *
  1384. =FORMXROOT      EQU    #5A2C5 *
  1385. =FOURpsh        EQU    #25322 *
  1386. =FREETOP        EQU    #7066E =
  1387. =FREEZE%        EQU    #142FB *
  1388. =False1LAMRsDO    EQU    #58CDA *
  1389. =FalseTrue      EQU    #0BC01 *
  1390. =FormDataGet    EQU    #26F6F *
  1391. =GDISP    EQU    #70565 =
  1392. =GETKEYS        EQU    #41F3F *
  1393. =GETKP    EQU    #307E2 *
  1394. =GETLIST        EQU    #2E835 *
  1395. =GETUPDIR       EQU    #08309 *
  1396. =GETWARN#       EQU    #04546 *
  1397. =GPErrjmpC      EQU    #10F40 *
  1398. =GROB>GDISPoff    EQU    #12F0A *
  1399. =GROB>GDISPon    EQU    #12E89 *
  1400. =GetKeyOb       EQU    #4203C *
  1401. =GetMenuIP%     EQU    #4161A *
  1402. =GetStrLenC     EQU    #2FFB7 =
  1403. =HALT    EQU    #14378 *
  1404. =HARDROMXLIB?    EQU    #269E7 *
  1405. =HBUFFDIMh      EQU    #12B6C *
  1406. =HBUFFDIMw      EQU    #12B58 *
  1407. =HEIGHTENHBUFF    EQU    #12964 *
  1408. =HOME>BAK       EQU    #094A4 *
  1409. =HOMEATTACH     EQU    #07709 *
  1410. =HOMEATTACHED?    EQU    #077C2 *
  1411. =HOMEDETACH     EQU    #076AE *
  1412. =HOMEDIR?       EQU    #08DD4 *
  1413. =HXS=?    EQU    #544D9 *
  1414. =HXSSYSEVAL     EQU    #1A547 *
  1415. =HXSWAIT        EQU    #1A7ED *
  1416. =HiddenDir@     EQU    #0B9D4 *
  1417. =ID>LAM    EQU    #05AED *
  1418. =ID>ROMPTR      EQU    #07BFD *
  1419. =IDUP    EQU    #0716B *
  1420. =ID_Alarms      EQU    #0DF01 *
  1421. =ID_CST    EQU    #211B4 *
  1422. =ID_EQ    EQU    #1576C *
  1423. =ID_IERR        EQU    #56859 *
  1424. =ID_IOPAR       EQU    #2E9D5 *
  1425. =ID_UserKeys    EQU    #41A43 *
  1426. =ID_X    EQU    #47459 *
  1427. =IMPLODESYMB    EQU    #5F2EE *
  1428. =INCR2LAM       EQU    #43B7B *
  1429. =INCRLAM:       EQU    #6045F *
  1430. =INNERCOMP>%    EQU    #1C973 *
  1431. =INNERtop&      EQU    #5E585 *
  1432. =INSERTN{}      EQU    #0E461 *
  1433. =INSmode?       EQU    #53A3C *
  1434. =INV?*/    EQU    #5BCE4 *
  1435. =INV?/*    EQU    #5BCB7 *
  1436. =ISOL.1    EQU    #572A7 *
  1437. =ISysFlag?      EQU    #539E6 =
  1438. =IgnoreAlm?     EQU    #53AC8 *
  1439. =InitMenu#      EQU   #40F9A *
  1440. =InitSysUI      EQU    #385E8 *
  1441. =InputID        EQU    #4A770 *
  1442. =Ins$:    EQU    #40DF7 *
  1443. =InsChr:        EQU    #40DD4 *
  1444. =InsNewLine     EQU    #42B61 *
  1445. =IntgDataGet    EQU    #26F53 *
  1446. =InvLabelGrob    EQU    #3A45D *
  1447. =JINDEXSTO      EQU    #072AD *
  1448. =JSTOP@    EQU    #07264 *
  1449. =JSTOPSTO       EQU    #072C2 *
  1450. =KDefs    EQU    #7B4E4 =
  1451. =LAM>ID    EQU    #05B01 *
  1452. =LAM_&1    EQU    #60E8C *
  1453. =LAM_&2    EQU    #60E97 *
  1454. =LAM_&3    EQU    #60EA2 *
  1455. =LAM_&4    EQU    #60EAD *
  1456. =LAM_'SavedUI    EQU    #38A3E *
  1457. =LAM_'dvar      EQU    #549DB *
  1458. =LAM_'halt      EQU    #1439B *
  1459. =LAM_'nohalt    EQU    #14483 *
  1460. =LAM_M    EQU    #0E47A *
  1461. =LAM_N    EQU    #0E4A0 *
  1462. =LASTARG        EQU    #1A631 *
  1463. =LASTCMD@       EQU    #18802 *
  1464. =LASTCMD_OFF    EQU    #5387C *
  1465. =LASTCMD_ON     EQU    #5386E *
  1466. =LASTCMD_ON?    EQU    #53860 *
  1467. =LASTMENU       EQU    #413B9 *
  1468. =LEN$>%    EQU    #1CA26 *
  1469. =LENCOMP>%      EQU    #1CA3A *
  1470. =LIB>#    EQU       #081EE *
  1471. =LIB>$    EQU    #15D38 *
  1472. =LIB>%    EQU    #219FE *
  1473. =LIBID>#        EQU    #0814F *
  1474. =LIBLOC    EQU    #0807F *
  1475. =LIBRARYmenu    EQU    #3F376 *
  1476. =LIBSIZE        EQU    #0809E *
  1477. =LIBS{}    EQU    #08E32 *
  1478. =LOOPTOP        EQU    #70588 =
  1479. =LR     EQU    #2CA30 *
  1480. =LastMenu!      EQU    #419E4 *
  1481. =LastMenu@      EQU    #419F4 *
  1482. =LastMenuRow!    EQU    #4186E *
  1483. =LastMenuRow@    EQU    #41881 *
  1484. =LowCase?       EQU    #53992 *
  1485. =M*     EQU    #561BA *
  1486. =M*w3    EQU    #56589 *
  1487. =M+     EQU    #56160 *
  1488. =M+w3    EQU    #56543 *
  1489. =M-     EQU    #56174 *
  1490. =M-w3    EQU    #56566 *
  1491. =M/     EQU    #56214 *
  1492. =M/w3    EQU    #565CF *
  1493. =M1st*case      EQU    #5EF54 *
  1494. =M1st+?Drp      EQU    #5ACD6 *
  1495. =M1st+case      EQU    #5EF2E *
  1496. =M1st-case      EQU    #5EF41 *
  1497. =M1st/case      EQU    #5EF67 *
  1498. =M1stEQ:Drp/w1    EQU    #55314 *
  1499. =M1stINVcase    EQU    #5EF8D *
  1500. =M1stNEGcase    EQU    #5EF7A *
  1501. =M1stNOTw1?add    EQU    #5540E *
  1502. =M1stSQcase     EQU    #5EFB3 *
  1503. =M1st^case      EQU    #5EFA0 *
  1504. =MABSw1    EQU    #555B2 *
  1505. =MAKEHXS        EQU    #0EDE1 *
  1506. =MALOGw1        EQU    #552EC *
  1507. =MAT*    EQU    #3643F *
  1508. =MAT+    EQU    #36115 *
  1509. =MAT-    EQU    #36278 *
  1510. =MAT/    EQU    #36B60 *
  1511. =MATABS    EQU    #369CB *
  1512. =MATC>R    EQU    #360B6 *
  1513. =MATCH:    EQU    #60B17 *
  1514. =MATCNRM        EQU    #368F9 *
  1515. =MATCONJ        EQU    #35F30 *
  1516. =MATCROSS       EQU    #36782 *
  1517. =MATDET    EQU    #36A2A *
  1518. =MATDOT    EQU    #366F6 *
  1519. =MATFLOAT*      EQU    #362DC *
  1520. =MATFLOAT/      EQU    #363CC *
  1521. =MATIDN    EQU    #35D35 *
  1522. =MATIM    EQU    #35FEE *
  1523. =MATIM=0        EQU    #37AFE *
  1524. =MATINV    EQU    #36B0B *
  1525. =MATNEG    EQU    #35DEB *
  1526. =MATR>C    EQU    #36039 *
  1527. =MATRE    EQU    #35F8F *
  1528. =MATRND    EQU    #35E2C *
  1529. =MATRNRM        EQU    #368E5 *
  1530. =MATRSD    EQU    #365AC *
  1531. =MATSQ    EQU    #36435 *
  1532. =MATTRNC        EQU    #35EA9 *
  1533. =MCONJw1        EQU    #55567 *
  1534. =MCOSHw1        EQU    #552B0 *
  1535. =MCOSw1    EQU    #55378 *
  1536. =MEMSKIPADDR    EQU    #21C47 *
  1537. =MEQ?Drp/tp&w1    EQU    #5613D *
  1538. =MEQU?    EQU    #584B2 *
  1539. =MEQU?Splt/Dup    EQU    #558BE *
  1540. =MERGE#    EQU      #0B037 *
  1541. =MEXPAN    EQU    #57A48 *
  1542. =MEXPMw1        EQU    #55300 *
  1543. =MEXPw1    EQU    #552D8 *
  1544. =MIMPLODE       EQU    #5F31B *
  1545. =MIMw1    EQU    #55495 *
  1546. =MINVw1    EQU    #553EB *
  1547. =MId>dvar       EQU    #5670F *
  1548. =MKDIR    EQU    #24EA6 *
  1549. =MNEGw1    EQU    #553D2 *
  1550. =MNoSyms?case    EQU    #549EC *
  1551. =MREw1    EQU    #5542C *
  1552. =MReplIMPLODE    EQU    #5F4F6 *
  1553. =MSGNOTOK?      EQU    #479D4 *
  1554. =MSHOW    EQU    #58DA7 *
  1555. =MSINHw1        EQU    #5529C *
  1556. =MSINw1    EQU    #5533C *
  1557. =MSQw1    EQU    #555E9 *
  1558. =MTANHw1        EQU    #552C4 *
  1559. =MTANw1    EQU    #553A5 *
  1560. =M^w3    EQU    #5645D *
  1561. =MakeDataGet    EQU    #26F29 *
  1562. =MatrixWriter    EQU    #44C31 *
  1563. =Mdvar>1LAM     EQU    #5AC86 *
  1564. =MediumBlank    EQU    #66F11 *
  1565. =Menu@    EQU    #416F1 *
  1566. =MenuKeyNS@     EQU    #41924 *
  1567. =MenuOffset!    EQU    #4139B *
  1568. =MenuRow!       EQU    #41848 *
  1569. =MkIOPAR        EQU    #2E999 *
  1570. =MkNullHidden?    EQU    #0BB40 *
  1571. =MultiLiner?    EQU    #39E0F *
  1572. =N+1roll        EQU    #5EBFC *
  1573. =N+1unroll      EQU    #5ED6C *
  1574. =NAMEINTEG      EQU    #1F201 *
  1575. =NAppKeyOK?     EQU    #38D25 *
  1576. =NEG?+-    EQU    #5BC8A *
  1577. =NEG?-+    EQU    #5BC5D *
  1578. =NEGBF%    EQU    #37D7E *
  1579. =NEXTLIB?       EQU    #080C9 *
  1580. =NOT?Re>C%      EQU    #1DCDC *
  1581. =NOT?SWAP       EQU    #62D9F *
  1582. =NOTBAKcase     EQU    #27224 *
  1583. =NOTLIBcase     EQU    #27234 *
  1584. =NOTNULDIR?ERR    EQU    #18608 *
  1585. =NOTTYPEIDNT?    EQU    #0F1C8 *
  1586. =NOTcaseDRPFLS    EQU    #63AEC *
  1587. =NULL$FALSE     EQU    #4A145 *
  1588. =NULLCOMP?      EQU    #055B7 *
  1589. =NULLGROB       EQU    #505B2 *
  1590. =NULLHXS?       EQU    #05566 *
  1591. =NULLID    EQU    #15781 *
  1592. =NULLSYMB       EQU    #055F3 *
  1593. =NoCMDLINEcase    EQU    #40D93 *
  1594. =NoIdsInMeta?    EQU    #58715 *
  1595. =NotConstFlag?    EQU    #53C0A *
  1596. =NotNumFlag?    EQU    #53BB0 *
  1597. =O*SYM    EQU    #55FDA *
  1598. =O+SYM    EQU    #55F44 *
  1599. =O-SYM    EQU    #55F8F *
  1600. =O/SYM    EQU    #56025 *
  1601. =ONE1PUTLAM     EQU    #285EE *
  1602. =ONE_DO_ARRAY    EQU    #37BCB *
  1603. =ORDER%    EQU    #4B51C *
  1604. =OVER#=casedrp    EQU    #618D3 *
  1605. =OVER&$&$       EQU    #6910C *
  1606. =OVEREQcaseDRP    EQU    #517C6 *
  1607. =O^SYM    EQU    #55EF9 *
  1608. =ObDispatch     EQU    #5F6F9 =
  1609. =ObDispatch1    EQU    #5F6F2 =
  1610. =ObInMeta?      EQU    #5768A *
  1611. =PACKAB    EQU    #29E21 =
  1612. =POLARDUMMY     EQU    #1F9AE *
  1613. =POLSet&KeyUI    EQU    #38994 *
  1614. =POP1%%    EQU    #2A060 =
  1615. =POP2%%    EQU    #2A0B1 =
  1616. =POP2%SPLITAC    EQU    #29FF8 =
  1617. =PORT0menu      EQU    #3BD82 *
  1618. =PORT1menu      EQU    #3BDAA *
  1619. =PORT2menu      EQU    #3BDD2 *
  1620. =PORTEND        EQU    #0AB51 *
  1621. =PORTPNTR@      EQU    #0AB82 *
  1622. =PREDX    EQU    #2CB75 *
  1623. =PREDY    EQU    #2CB02 *
  1624. =PULL%%EL       EQU    #35602 *
  1625. =PULLC%%EL      EQU    #35619 =
  1626. =PULLEL    EQU    #3558E *
  1627. =PULLELSWPDRP    EQU    #36A3E *
  1628. =PULLLONGEL     EQU    #355D8 *
  1629. =PUSH%%    EQU    #2A24B =
  1630. =PUSH%%LOOP     EQU    #2A235 =
  1631. =PrCOMP>$       EQU    #1622A *
  1632. =PrGROB>$       EQU    #15DF1 *
  1633. =PrSolFlag?     EQU    #53C23 *
  1634. =PrgmEntry      EQU    #70794 =
  1635. =PrgmEntry?     EQU    #11511 *
  1636. =QUOTESin$      EQU    #1605F *
  1637. =RCLFIX    EQU    #5A983 *
  1638. =RCLFIXACC      EQU    #5A952 *
  1639. =RCLUSERF       EQU    #1C64E *
  1640. =RCONFIG        EQU    #08143 *
  1641. =RCWS    EQU    #53CF0 *
  1642. =RDROPTRUE      EQU    #54C4F *
  1643. =REDISPABUFF    EQU    #13695 *
  1644. =REMOVEN{}      EQU    #0E4DE *
  1645. =REPEATER2      EQU    #51735 *
  1646. =REPLs1w-1      EQU    #51404 *
  1647. =REPLs1w1       EQU    #513DC *
  1648. =RETTOP    EQU    #70574 =
  1649. =REVERSE4       EQU    #50A63 *
  1650. =REVERSE4TRUE    EQU    #50923 *
  1651. =RHASH    EQU    #08101 *
  1652. =RHash    EQU    #0846E =
  1653. =RINVACOS       EQU    #5753B *
  1654. =RINVACOSH      EQU    #57577 *
  1655. =RINVASIN       EQU    #57527 *
  1656. =RINVASINH      EQU    #57563 *
  1657. =RINVATAN       EQU    #5754F *
  1658. =RINVATANH      EQU    #5758B *
  1659. =RINVCONJ       EQU    #57603 *
  1660. =RINVINV        EQU    #574B9 *
  1661. =RINVLN    EQU    #574D7 *
  1662. =RINVLNP1       EQU    #575E5 *
  1663. =RINVLOG        EQU    #575D1 *
  1664. =RINVNEG        EQU    #574A5 *
  1665. =RINVSQ    EQU    #5759F *
  1666. =RINVSQRT       EQU    #575BD *
  1667. =RLIBS    EQU    #21972 *
  1668. =RLINK    EQU    #08128 *
  1669. =RMESG    EQU    #0811C *
  1670. =RNDSYM    EQU    #55DCD *
  1671. =ROLL{}    EQU    #49CD6 *
  1672. =ROMPTR>        EQU    #08CCC *
  1673. =ROMPTR>$       EQU    #1616C *
  1674. =ROMPTR>ID      EQU    #0821F *
  1675. =ROOT    EQU    #32F77 *
  1676. =ROT#1+SWAP     EQU    #2198B *
  1677. =ROT%>%%UNROT    EQU    #10D90 *
  1678. =ROTCKREF       EQU    #366BF *
  1679. =ROTNOTUNROT    EQU    #6F2A0 *
  1680. =RPL>ID    EQU    #08207 *
  1681. =RPL@    EQU    #07E76 *
  1682. =RPLTOP    EQU    #705B0 =
  1683. =RPTOK?    EQU    #0E693 *
  1684. =RSZABUFF       EQU    #130CA *
  1685. =RclData        EQU    #0C612 *
  1686. =RclDataTRUE    EQU    #2709B *
  1687. =RclHPUI        EQU    #38A11 *
  1688. =RclUI    EQU    #389CB *
  1689. =Restore16      EQU    #0E05B *
  1690. =RinvDateGet    EQU    #26F1B *
  1691. =RsDO    EQU    #58CEE *
  1692. =RsDoArg        EQU    #58D25 *
  1693. =RulesDataGet    EQU    #26F45 *
  1694. =SAFESKIPOB     EQU    #0A532 *
  1695. =SETArgNumERR    EQU    #11006 *
  1696. =SETDirArgERR    EQU    #11026 *
  1697. =SETDirRecuERR    EQU    #04FC2 *
  1698. =SETFewArgsERR    EQU    #18CC2 *
  1699. =SETHALTERR     EQU    #10FC6 *
  1700. =SETIdConflERR    EQU    #11066 *
  1701. =SETInfResERR    EQU    #29E0C *
  1702. =SETInvCardERR    EQU    #04FDA *
  1703. =SETInvDefERR    EQU    #11046 *
  1704. =SETInvDimERR    EQU    #37DE2 *
  1705. =SETInvFuncERR    EQU    #10F64 *
  1706. =SETIsolateERR    EQU    #10FB6 *
  1707. =SETLastCmdERR    EQU    #10FF6 *
  1708. =SETLastStkERR    EQU    #10FE6 *
  1709. =SETMissLibERR    EQU    #11056 *
  1710. =SETNEmpDirERR    EQU    #11036 *
  1711. =SETNPortObERR    EQU    #0500A *
  1712. =SETNegFlowERR    EQU    #29DDC *
  1713. =SETNoAlarmERR    EQU    #0CBAE *
  1714. =SETNoEQERR     EQU    #10F74 *
  1715. =SETNoPortERR    EQU    #04FF2 *
  1716. =SETNon%ERR     EQU    #10FA6 *
  1717. =SETNullChrERR    EQU    #10F54 *
  1718. =SETObInUseERR    EQU    #04FE6 *
  1719. =SETOvrFlowERR    EQU    #29DEC *
  1720. =SETPPARERR     EQU    #10F96 *
  1721. =SETPortMemERR    EQU    #04FFE *
  1722. =SETPosFlowERR    EQU    #29DCC *
  1723. =SETPowLostERR    EQU    #04FAA *
  1724. =SETSyntaxERR    EQU    #10F86 *
  1725. =SETUndefIdERR    EQU    #18C92 *
  1726. =SETUndfLAMERR    EQU    #04FCE *
  1727. =SETUndfResERR    EQU    #29DFC *
  1728. =SETUndfXLERR    EQU    #05016 *
  1729. =SHOW$22        EQU    #0E029 *
  1730. =SHOWTICKSTIME    EQU    #0EE06 *
  1731. =SHOWTIME       EQU    #39A83 *
  1732. =SIUNITS{}      EQU    #0FA53 *
  1733. =SMCOLCT        EQU    #58A20 *
  1734. =STKDET2%%      EQU    #367FA *
  1735. =STODF    EQU    #04A4C *
  1736. =STOKEYS{}      EQU    #41AA1 *
  1737. =STR>NIBS       EQU    #15E83 *
  1738. =STWS    EQU    #53CAA *
  1739. =SVISIT    EQU    #3AF7D *
  1740. =SWAO2C%>%      EQU    #51C6B *
  1741. =SWAP#1-SWAP    EQU    #51857 *
  1742. =SWAP2C%%>%%    EQU    #51C84 *
  1743. =SWAP>HCOMP     EQU    #1AC93 *
  1744. =SWAPCOLUMS     EQU    #37500 *
  1745. =SWAPDROP#1-    EQU    #5EAF4 *
  1746. =SWAPDROP%%0>=    EQU    #52A07 *
  1747. =SWAPDROPFALSE    EQU    #1781A *
  1748. =SWAPDROPID>$    EQU    #16180 *
  1749. =SWAPDROPONE    EQU    #5A734 *
  1750. =SWAPDROPZERO    EQU    #6EAD0 *
  1751. =SWAPFALSE      EQU    #2164C *
  1752. =SWAPID>$       EQU    #39A4C *
  1753. =SWAPLOOPDROP    EQU    #54CB3 *
  1754. =SWAPOVER#-     EQU    #6EABC *
  1755. =SWAPZERO       EQU    #45073 *
  1756. =SWITCH2ARRY    EQU    #35AF6 *
  1757. =SWITCH2FLOATS    EQU    #35B90 *
  1758. =SWITCHFLOATS    EQU    #35B4F *
  1759. =SWPDRPROTDRP    EQU    #4A842 *
  1760. =SYM%%CH        EQU    #55C88 *
  1761. =SYM%%T    EQU    #55CD3 *
  1762. =SYM%<    EQU    #55B11 *
  1763. =SYM%<=    EQU    #55BA7 *
  1764. =SYM%>    EQU    #55B5C *
  1765. =SYM%>=    EQU    #55BF2 *
  1766. =SYM%AND        EQU    #5599A *
  1767. =SYM%CH    EQU    #55CBA *
  1768. =SYM%COMB       EQU    #55D1E *
  1769. =SYM%MAX        EQU    #55E4A *
  1770. =SYM%MIN        EQU    #55E95 *
  1771. =SYM%MOD        EQU    #56057 *
  1772. =SYM%OF    EQU    #55C3D *
  1773. =SYM%OR    EQU    #559E5 *
  1774. =SYM%PERM       EQU    #55D69 *
  1775. =SYM%RND        EQU    #55DB4 *
  1776. =SYM%SUM        EQU    #56A06 *
  1777. =SYM%T    EQU    #55D05 *
  1778. =SYM%TRNC       EQU    #55DFF *
  1779. =SYM%XOR        EQU    #55A30 *
  1780. =SYM%XROOT      EQU    #560A2 *
  1781. =SYM*    EQU    #55FF3 *
  1782. =SYM*O    EQU    #55FC1 *
  1783. =SYM+    EQU    #55F5D *
  1784. =SYM+O    EQU    #55F2B *
  1785. =SYM-    EQU    #55FA8 *
  1786. =SYM-O    EQU    #55F76 *
  1787. =SYM/    EQU    #5603E *
  1788. =SYM/O    EQU    #5600C *
  1789. =SYM<    EQU    #55B43 *
  1790. =SYM<=    EQU    #55BD9 *
  1791. =SYM<>    EQU    #55AF8 *
  1792. =SYM==    EQU    #55AAD *
  1793. =SYM>    EQU    #55B8E *
  1794. =SYM>=    EQU    #55C24 *
  1795. =SYMABS    EQU    #54F04 *
  1796. =SYMACOS        EQU    #55062 *
  1797. =SYMACOSH       EQU    #550AD *
  1798. =SYMALOG        EQU    #5512A *
  1799. =SYMAND    EQU    #559CC *
  1800. =SYMARG    EQU    #54F4F *
  1801. =SYMASIN        EQU    #55049 *
  1802. =SYMASINH       EQU    #55094 *
  1803. =SYMATAN        EQU    #5507B *
  1804. =SYMATANH       EQU    #550C6 *
  1805. =SYMB?INNER     EQU    #5E067 *
  1806. =SYMBTOHBUFF    EQU    #699C5 *
  1807. =SYMCEIL        EQU    #551D9 *
  1808. =SYMCOMB        EQU    #55D50 *
  1809. =SYMCONJ        EQU    #54F1D *
  1810. =SYMCOS    EQU    #54FCC *
  1811. =SYMCOSH        EQU    #55017 *
  1812. =SYMD>R    EQU    #55224 *
  1813. =SYMDER    EQU    #54954 *
  1814. =SYMEXP    EQU    #550DF *
  1815. =SYMEXPAN       EQU    #57A0C *
  1816. =SYMEXPM        EQU    #5515C *
  1817. =SYMEXPONENT    EQU    #551F2 *
  1818. =SYMFACT        EQU    #55175 *
  1819. =SYMFLOAT<>     EQU    #55AC6 *
  1820. =SYMFLOAT==     EQU    #55A7B *
  1821. =SYMFLOOR       EQU    #551C0 *
  1822. =SYMFP    EQU    #551A7 *
  1823. =SYMIM    EQU    #54EB9 *
  1824. =SYMINTEG       EQU    #5AAC7 *
  1825. =SYMINV    EQU    #54F36 *
  1826. =SYMIP    EQU    #5518E *
  1827. =SYMISOL        EQU    #572A2 *
  1828. =SYMLN    EQU    #550F8 *
  1829. =SYMLNP1        EQU    #55143 *
  1830. =SYMLOG    EQU    #55111 *
  1831. =SYMMANT        EQU    #5520B *
  1832. =SYMMAX    EQU    #55E7C *
  1833. =SYMMIN    EQU    #55EC7 *
  1834. =SYMMOD    EQU    #56089 *
  1835. =SYMNEG    EQU    #54EEB *
  1836. =SYMNOT    EQU    #54ED2 *
  1837. =SYMOF    EQU    #55C6F *
  1838. =SYMOR    EQU    #55A17 *
  1839. =SYMPERM        EQU    #55D9B *
  1840. =SYMQUAD        EQU    #591AD *
  1841. =SYMR>D    EQU    #5523D *
  1842. =SYMRE    EQU    #54EA0 *
  1843. =SYMRND    EQU    #55DE6 *
  1844. =SYMSIGN        EQU    #54F68 *
  1845. =SYMSIN    EQU    #54FB3 *
  1846. =SYMSINH        EQU    #54FFE *
  1847. =SYMSQ    EQU    #54F9A *
  1848. =SYMSQRT        EQU    #54F81 *
  1849. =SYMSUM    EQU    #56949 *
  1850. =SYMTAN    EQU    #54FE5 *
  1851. =SYMTANH        EQU    #55030 *
  1852. =SYMTAYLR       EQU    #595DD *
  1853. =SYMTRNC        EQU    #55E31 *
  1854. =SYMUBASE       EQU    #55256 *
  1855. =SYMUVAL        EQU    #5526F *
  1856. =SYMXOR    EQU    #55A62 *
  1857. =SYMXROOT       EQU    #560D4 *
  1858. =SYM^    EQU    #55F12 *
  1859. =SYM^O    EQU    #55EE0 *
  1860. =SYSTMPCONTEXT    EQU    #08DC4 *
  1861. =Save16    EQU    #0E047 *
  1862. =!SavedContext    EQU    #41A04 *
  1863. =@SavedContext    EQU    #41A14 *
  1864. =ScrollDown     EQU    #13220 *
  1865. =ScrollJump     EQU    #13679 *
  1866. =ScrollLeft     EQU    #134E4 *
  1867. =ScrollMode?    EQU    #13167 *
  1868. =ScrollRight    EQU    #1357F *
  1869. =ScrollUp       EQU    #131C8 *
  1870. =Set1USR        EQU    #40D61 *
  1871. =SetAppSuspOK    EQU    #38D8A *
  1872. =SetCursorx     EQU    #43309 *
  1873. =SetCursor{}    EQU    #43273 *
  1874. =SetDA12NoCh    EQU    #3919E *
  1875. =SetDA12a3NoCh    EQU    #391DA *
  1876. =SetDA13NoCh    EQU    #391C6 *
  1877. =SetDA1Bad      EQU    #3947B *
  1878. =SetDA1IsStat    EQU    #39523 *
  1879. =SetDA1NoCh     EQU    #393D3 *
  1880. =SetDA1ValidF    EQU    #39283 *
  1881. =SetDA23NoCh    EQU    #391B2 *
  1882. =SetDA2NoCh     EQU    #3918A *
  1883. =SetDA2Temp     EQU    #39207 *
  1884. =SetDA2Valid    EQU    #3915D *
  1885. =SetDA2aBad     EQU    #394A5 *
  1886. =SetDA2aNoCh    EQU    #393FD *
  1887. =SetDA2aTemp    EQU    #39045 *
  1888. =SetDA2aValidF    EQU    #392AD *
  1889. =SetDA2bBad     EQU    #394CF *
  1890. =SetDA2bNoCh    EQU    #39427 *
  1891. =SetDA2bTemp    EQU    #39059 *
  1892. =SetDA2bValid    EQU    #38FFF *
  1893. =SetDA3Bad      EQU    #394F9 *
  1894. =SetDA3Temp     EQU    #39072 *
  1895. =SetDAsNoCh     EQU    #391EE *
  1896. =SetDAsValid    EQU    #39171 *
  1897. =SetDelayedA    EQU    #11543 *
  1898. =SetINSmode     EQU    #53A2E *
  1899. =SetKeys        EQU    #04A57 *
  1900. =SetKeysA       EQU    #3FD36 *
  1901. =SetKeysALS     EQU    #3FD63 *
  1902. =SetKeysARS     EQU    #3FD90 *
  1903. =SetKeysLS      EQU    #3FCDC *
  1904. =SetKeysNS      EQU    #3FCAF *
  1905. =SetKeysRS      EQU    #3FD09 *
  1906. =SetMenuKeys    EQU    #3F00E *
  1907. =SetNumFlag     EQU    #53B9C *
  1908. =SetShowClock    EQU    #53AAC *
  1909. =SetStdKeys     EQU    #3FF86 *
  1910. =SetTopMnuKeys    EQU    #3EFE6 *
  1911. =SetUSR1MODE    EQU    #3FFB9 *
  1912. =ShowClock?     EQU    #53A9E *
  1913. =SmallArrow     EQU    #66F7D *
  1914. =SolverMenuInit    EQU    #15200 *
  1915. =SpEval?        EQU    #26B73 *
  1916. =StartISOL      EQU    #57333 *
  1917. =StdKeys?       EQU    #3FF75 *
  1918. =StdLabelGrob    EQU    #3A337 *
  1919. =StdMenuKeysRS    EQU    #4021F *
  1920. =SysBox/StdLab    EQU    #3ECEE *
  1921. =SysErrorTrap    EQU    #38728 *
  1922. =SysStd/BoxLab    EQU    #3ECD0 *
  1923. =TAG>    EQU    #05EC7 *
  1924. =TIMEOK?        EQU    #0E66A *
  1925. =TMPCONTEXT!    EQU    #08D4A *
  1926. =TMPCONTEXT@    EQU    #08D82 *
  1927. =TMPCONTEXTptr    EQU    #705A1 =
  1928. =TRNCSYM        EQU    #55E18 *
  1929. =TRUE1PUTLAM    EQU    #292CF *
  1930. =TRUE1PUTLTRUE    EQU    #43192 *
  1931. =TRUE4PUTLAM    EQU    #482BF *
  1932. =TRUESWAP       EQU    #097A7 *
  1933. =TRUETRUETRUE    EQU    #25966 *
  1934. =TYPECMP        EQU    #03F95 *
  1935. =TYPECOL        EQU    #03FB3 *
  1936. =TYPEDIR        EQU    #03FC7 *
  1937. =TYPEDIR?ERR    EQU    #184FA *
  1938. =TYPELAM        EQU    #03FD1 *
  1939. =TYPELIST       EQU    #03F9F *
  1940. =TYPELONGREAL    EQU    #03FDB *
  1941. =TYPESYMB       EQU    #03FBD *
  1942. =TYPEUNIT       EQU    #03FE5 *
  1943. =Take2ToDo      EQU    #3EE47 *
  1944. =Take3ToDo      EQU    #3EE65 *
  1945. =Take4ToDo      EQU    #3EE92 *
  1946. =TakeOver'      EQU    #407FB *
  1947. =TogINSmode     EQU    #53A12 *
  1948. =TogISysFlag    EQU    #539F1 =
  1949. =TogLowCase     EQU    #539A0 *
  1950. =TogSysFlag     EQU    #3EDA2 *
  1951. =TogUSER        EQU    #40D4D *
  1952. =Type$    EQU    #15CBB *
  1953. =Type$+    EQU    #15CCF *
  1954. =UMINV    EQU    #0F841 *
  1955. =UMOPER    EQU    #0FD4A *
  1956. =UMRND    EQU    #0FD68 *
  1957. =UM^    EQU    #0F878 *
  1958. =UNCOERCE{}2    EQU    #19529 *
  1959. =UNDO_OFF       EQU    #538DC *
  1960. =UNDO_ON        EQU    #528CE *
  1961. =UNDO_ON?       EQU    #538C0 *
  1962. =UNITN    EQU    #05481 *
  1963. =UNROT2DROP%0    EQU    #50A3B *
  1964. =UNROT2DRPTRUE    EQU    #6B08A *
  1965. =UPMATCH        EQU    #1FABA *
  1966. =USR1MODE?      EQU    #3FFA8 *
  1967. =UpDispStack    EQU    #437C5 *
  1968. =UserFlags      EQU    #706D5 =
  1969. =UserKeysptr    EQU    #705A6 =
  1970. =UserMode?      EQU    #41A8D *
  1971. =UserRestoreUI    EQU    #38ACD *
  1972. =VISIT    EQU    #3B12B *
  1973. =WARN#>$22      EQU    #04577 *
  1974. =WSLOG    EQU    #0D2A3 *
  1975. =WSLOGN    EQU    #0D18A *
  1976. =WarmStart      EQU    #21B4E *
  1977. =WhereDataGet    EQU    #26F61 *
  1978. =XEQ::N    EQU    #5E111 *
  1979. =XEQRCLKEYS     EQU    #41C02 *
  1980. =XEQSYMBN       EQU    #5E0A3 *
  1981. =XEQ{}N    EQU    #5E0DA *
  1982. =XYZW>YT        EQU    #0F1FF *
  1983. =XYZW>YW        EQU    #4A842 *
  1984. =XYZW>ZZ        EQU    #49523 *
  1985. =YesIgnoreAlm    EQU    #53AD6 *
  1986. =ZERO1PUTLAM    EQU    #28602 *
  1987. =ZERO5UNROLL    EQU    #2530E *
  1988. =ZEROSIX        EQU    #41DB5 *
  1989. =ZEROSWAPTWO    EQU    #27C24 *
  1990. =[]TYPEPROLOG    EQU    #0358F *
  1991. =addt    EQU    #62904 *
  1992. =addt*    EQU    #5CD16 *
  1993. =addt+    EQU    #5BC94 *
  1994. =addt-    EQU    #5BC67 *
  1995. =addt2:    EQU    #5E530 *
  1996. =addt:    EQU    #5E51C *
  1997. =addt:SYMBN     EQU    #54CEF *
  1998. =addtINV        EQU    #5CD3E *
  1999. =addtNEG        EQU    #5CD2A *
  2000. =addtpsh        EQU    #57441 *
  2001. =addtw1    EQU    #55288 *
  2002. =count*    EQU    #58C0E *
  2003. =count+    EQU    #58C02 *
  2004. =dNINHARDROM?    EQU    #19350 *
  2005. =drop%-1#1      EQU    #5554E *
  2006. =drop%0#1       EQU    #5551C *
  2007. =drop%0ABND     EQU    #5499F *
  2008. =drop%1#1       EQU    #55535 *
  2009. =dropDrpFls     EQU    #50F60 *
  2010. =droptop&addw1    EQU    #562BE *
  2011. =drp1INV?*/     EQU    #5BD89 *
  2012. =drp1INV?/*     EQU    #5BD70 *
  2013. =drp1NEG?+-     EQU    #5BD57 *
  2014. =drp1NEG?-+     EQU    #5BD3E *
  2015. =dup    EQU    #5E35C *
  2016. =dvarsInMeta?    EQU    #5AD08 *
  2017. =haltOK?        EQU    #1446F *
  2018. =metaC%%*       EQU    #51ADF *
  2019. =mpop1%    EQU    #0D8AE *
  2020. =n>ARRY    EQU    #19294 *
  2021. =opzerpsharg    EQU    #63F56 *
  2022. =opzerpsharg&    EQU    #5CBF9 *
  2023. =opzerpshargS    EQU    #1CF42 *
  2024. =orot    EQU    #10ADB *
  2025. =ounrot    EQU    #10AF9 *
  2026. =over&    EQU    #5E3C0 *
  2027. =overrev&       EQU    #5E843 *
  2028. =pick1    EQU    #5FC24 *
  2029. =pick1#0=case    EQU    #5FBE6 *
  2030. =pickrev        EQU    #6119E *
  2031. =psh1    EQU    #63105 *
  2032. =psh1&rev2:     EQU    #5E562 *
  2033. =psh1&rev:      EQU    #5E549 *
  2034. =psh1&revUNTIL    EQU    #5F370 *
  2035. =psh1over&      EQU    #5E503 *
  2036. =psh1top&       EQU    #5E401 *
  2037. =pshDROP        EQU    #638FD *
  2038. =pshm1    EQU    #5E3E8 *
  2039. =pshpullpsh1&    EQU    #5D6F4 *
  2040. =pshtopew2&w1    EQU    #56101 *
  2041. =pshzerarg      EQU    #63F92 *
  2042. =pshzerarg2     EQU    #5EAC2 *
  2043. =pshzerarg2ov&    EQU    #5CCEE *
  2044. =pshzerpsharg&    EQU    #5E6F2 *
  2045. =pulldrop       EQU    #5EAF4 *
  2046. =pulldroppull    EQU    #5FA45 *
  2047. =pullpshm1      EQU    #5E6BB *
  2048. =r:RINVALOG     EQU    #575F9 *
  2049. =r_DER*    EQU    #56B87 *
  2050. =r_DER+    EQU    #56B91 *
  2051. =r_DER-    EQU    #56B9B *
  2052. =r_DER/    EQU    #56BA5 *
  2053. =r_DER=    EQU    #56C13 *
  2054. =r_DERABS       EQU    #56C1D *
  2055. =r_DERACOS      EQU    #56C40 *
  2056. =r_DERACOSH     EQU    #56C4A *
  2057. =r_DERALOG      EQU    #56C54 *
  2058. =r_DERAPPLY     EQU    #57298 *
  2059. =r_DERARG       EQU    #56C5E *
  2060. =r_DERASIN      EQU    #56C68 *
  2061. =r_DERASINH     EQU    #56C72 *
  2062. =r_DERATAN      EQU    #56C7C *
  2063. =r_DERATANH     EQU    #56C86 *
  2064. =r_DERCOS       EQU    #56CCC *
  2065. =r_DERCOSH      EQU    #56CD6 *
  2066. =r_DERDER       EQU    #56F36 *
  2067. =r_DEREXP       EQU    #56CE0 *
  2068. =r_DEREXPM1     EQU    #56CE0 *
  2069. =r_DERIFTE      EQU    #56D26 *
  2070. =r_DERINTG      EQU    #57284 *
  2071. =r_DERINV       EQU    #56CEA *
  2072. =r_DERLN        EQU    #56CF4 *
  2073. =r_DERLNP1      EQU    #56CFE *
  2074. =r_DERLOG       EQU    #56D08 *
  2075. =r_DERSIN       EQU    #56D30 *
  2076. =r_DERSINH      EQU    #56D3A *
  2077. =r_DERSQ        EQU    #56D44 *
  2078. =r_DERSQRT      EQU    #56D4E *
  2079. =r_DERSUM       EQU    #5728E *
  2080. =r_DERTAN       EQU    #56D58 *
  2081. =r_DERWHERE     EQU    #5727A *
  2082. =r_DER^    EQU    #56D6C *
  2083. =r_KDefs        EQU    #3FB1F *
  2084. =r_RINV*        EQU    #57469 *
  2085. =r_RINV+        EQU    #57455 *
  2086. =r_RINV-        EQU    #5745F *
  2087. =r_RINV/        EQU    #57473 *
  2088. =r_RINV=        EQU    #5745F *
  2089. =r_RINVCOS      EQU    #574F5 *
  2090. =r_RINVCOSH     EQU    #57513 *
  2091. =r_RINVEXP      EQU    #574CD *
  2092. =r_RINVSIN      EQU    #574EB *
  2093. =r_RINVSINH     EQU    #57509 *
  2094. =r_RINVTAN      EQU    #574FF *
  2095. =r_RINVTANH     EQU    #5751D *
  2096. =r_RINV^        EQU    #5747D *
  2097. =r_RULES1       EQU    #3F103 *
  2098. =r_RULES10      EQU    #3F15D *
  2099. =r_RULES2       EQU    #3F10D *
  2100. =r_RULES3       EQU    #3F117 *
  2101. =r_RULES4       EQU    #3F121 *
  2102. =r_RULES5       EQU    #3F12B *
  2103. =r_RULES6       EQU    #3F135 *
  2104. =r_RULES7       EQU    #3F13F *
  2105. =r_RULES8       EQU    #3F149 *
  2106. =r_RULES9       EQU    #3F153 *
  2107. =repl    EQU    #60F0E *
  2108. =repl*    EQU    #5BCEE *
  2109. =repl/    EQU    #5BCC1 *
  2110. =repl:    EQU    #5E59E *
  2111. =replw%-1       EQU    #55607 *
  2112. =replw%1        EQU    #554B3 *
  2113. =replw1    EQU    #55477 *
  2114. =revpull&psh    EQU    #548AA *
  2115. =revpulldrop    EQU    #5FA63 *
  2116. =rot    EQU    #5EB58 *
  2117. =rotdup    EQU    #63F1A *
  2118. =rotswap        EQU    #5E857 *
  2119. =rottop&        EQU    #63F42 *
  2120. =stepDER        EQU    #54977 *
  2121. =swap    EQU    #5EB1C *
  2122. =swapdrop       EQU    #63911 *
  2123. =tok#    EQU        #6518E *
  2124. =tok$    EQU    #651A6 *
  2125. =tok&    EQU    #651B2 *
  2126. =tok(    EQU    #652B4 *
  2127. =tok)    EQU    #652C0 *
  2128. =tok*    EQU    #652D8 *
  2129. =tok+    EQU    #652F0 *
  2130. =tok/    EQU    #652E4 *
  2131. =tok2    EQU    #65364 *
  2132. =tok3    EQU    #65370 *
  2133. =tok4    EQU    #6537C *
  2134. =tok5    EQU    #65388 *
  2135. =tok6    EQU    #65394 *
  2136. =tok7    EQU    #653A0 *
  2137. =tok;    EQU    #652A8 *
  2138. =tok>>    EQU    #651CA *
  2139. =tokE    EQU    #651E2 *
  2140. =tok[    EQU    #6516A *
  2141. =tok]    EQU    #65150 *
  2142. =tok^    EQU    #652CC *
  2143. =tok_A    EQU    #0FAAE *
  2144. =tok_K    EQU    #0FAEE *
  2145. =tokder    EQU    #65244 *
  2146. =toksqrt        EQU    #65314 *
  2147. =tok|    EQU    #65206 *
  2148. =tok}    EQU    #65182 *
  2149. =top&NEG?-+     EQU    #57888 *
  2150. =top&addt^      EQU    #5837C *
  2151. =top&pshtop&    EQU    #5B861 *
  2152. =top&pullONE    EQU    #57B33 *
  2153. =top&w1    EQU    #560ED *
  2154. =topw3&w1       EQU    #5611F *
  2155. =unrot    EQU    #5EBDB *
  2156. =unrottop&      EQU    #63F42 *
  2157. =unzer    EQU    #638FD *
  2158. =w3*M    EQU    #56390 *
  2159. =w3+M    EQU    #56331 *
  2160. =w3-M    EQU    #56359 *
  2161. =w3/M    EQU    #563DB *
  2162. =w3^M    EQU    #562FA *
  2163. =xnsgeneral     EQU    #56101 *
  2164. =xsngeneral     EQU    #5611F *
  2165. =xssgeneral     EQU    #560ED *
  2166. ={}>TAG    EQU    #05E9F *
  2167. END_SRC
  2168.  
  2169. BEGIN_MISC entries.txt
  2170. 00001 =  HP:Sfkey1
  2171. 00001 =  HP:sTRUNC
  2172. 00002 =  HP:sFLUSH
  2173. 00002 =  HP:sNEGATE
  2174. 00003 =  HP:DZP
  2175. 00004 =  HP:sBPOFF
  2176. 00006 =  HP:Sfkey6
  2177. 00008 =  HP:sBEG
  2178. 0000A =  HP:portnotaverr
  2179. 0000F =  HP:sALLOWINTR
  2180. 00019 =  HP:ENTERCODE
  2181. 000C6 =  HP:KeyErrfd
  2182. 00100 =  DISPIO
  2183. 00100 @  [DON Ofs2 Ofs1 Ofs0] Disp On, Bit Offset for left (Display IO)
  2184. 00101 =  CONTRLSB
  2185. 00101 @  [Con3 Con2 Con1 Con0] Contrast, least sign. bits, MSB in 00102.1
  2186. 00101 =  VOLTAGE
  2187. 00102 @  [VDIG LID TRIM Con4] Disp Test (VDIG, LID, TRIM should be 0)&Contrast
  2188. 00104 @  16 bit hardware CRC (104-107)
  2189. 00108 =  LOWPOW
  2190. 00108 @  Low power registers (108-109)
  2191. 00108 @  [LB2 LB1 LB0 VLBI] (read only) [ELBI EVLBI GRST RST] (read/write)
  2192. 0010A =  MODE
  2193. 0010A @  read-only
  2194. 0010B =  HP:ANNCTRL
  2195. 0010B @  Annunciator control bits [ <-  ->  alpha  alarm ]
  2196. 0010C =  ANNCTRL2
  2197. 0010C @  Annunciator control bits [ busy  IO  XTRA Indicators_on? ]
  2198. 0010D =  IOSPEED
  2199. 0010D @  Baud rate (11 bits) (600h=9600,400h=4800,200h=2400,100h=1200)
  2200. 0010E =  EventMask
  2201. 00110 =  HP:IOC
  2202. 00110 @  [RI RE XI XE] RS-232 Int. Reg. ?E=Int. Enabled, ?I=Int. Triggered
  2203. 00111 =  HN:RCS
  2204. 00112 =  HP:TCS
  2205. 00112 @  [0 0 RR XR] UART status, XR=Xmit ready, RR=Recv. ready
  2206. 00113 =  HN:CRER
  2207. 00114 =  HN:RBR
  2208. 00114 @  RS-232 receive data register (2 nybbles for character)
  2209. 00116 =  HP:TBR
  2210. 00116 @  RS.232 transmit data register (2 nybbles for character)
  2211. 0011A =  HP:IRC
  2212. 0011A @  bit1: IR receiving (Clearable)
  2213. 0011A @  bit4: receive bit toggled by input
  2214. 0011C =  LEDHI
  2215. 0011C @  IR on/off  #8 turns led on (5 hours to drain batteries!), #0 off
  2216. 0011D =  LEDLO
  2217. 0011D @  Opens for msecs
  2218. 0011F =  7_or_F_map
  2219. 00120 =  STKDADDR
  2220. 00120 @  120-124 = stack display address, not readable (?), writable
  2221. 00120 @  bit 0 is ignored (display must start on byte boundary)
  2222. 00125 =  OVERSCAN
  2223. 00125 @  125-127 = bytes skipped after each pixel line
  2224. 00125 @  To make a scroller, needed are OVERSCAN, STKDADDR & DISPIO (???)
  2225. 00128 =  MENUROW1
  2226. 00128 @  6 bits till bits 0&1 of 129 (-> max = 2^6-1 = 63 = disp height)
  2227. 00128 @  Normally has 55d -> Menu starts at display row 56
  2228. 00129 =  MENUROW2
  2229. 00130 =  MENUDADDR
  2230. 00130 @  130-134 = menu display address
  2231. 00137 =  HP:TIMER1
  2232. 00138 =  HP:TIMER2
  2233. 00138 @  hardware timer
  2234. 001FF =  HP:allkeys
  2235. 00202 =  HP:argtypeerr
  2236. 00203 =  HP:argvalerr
  2237. 0023A =  ON_B?
  2238. 00284 =  HP:ServModeMASK
  2239. 00301 =  HP:posunferr
  2240. 00302 =  HP:negunferr
  2241. 00303 =  HP:ofloerr
  2242. 00305 =  HP:infreserr
  2243. 0045C =  IntrSaveOffset
  2244. 004EA =  keybuf
  2245. 007B5 =  HP:SrvcKbdAB
  2246. 00883 =  HP:IgnorAlmMASK
  2247. 00A03 =  HP:intrptderr
  2248. 00B02 =  HP:constuniterr
  2249. 00C0D =  HP:kermsendmsg
  2250. 00C0E =  HP:kermrecvmsg
  2251. 00C10 =  HP:kermpktmsg
  2252. 00C13 =  HP:prtparerr
  2253. 00C74 =  HP:OnKeyDown?
  2254. 00C80 =  HP:OnKeyStable?
  2255. 00D57 mc HP:Flush
  2256. 00D71 P  HP:FLUSH
  2257. 00D71 P  HP:FLUSHKEYS
  2258. 00D71 @  Flush the key buffer
  2259. 00D8E mc HP:FlushAttn
  2260. 00E0B mc AnyKeyPressed?
  2261. 00F94 =  ON_+
  2262. 00F9A =  ON_-
  2263. 01011 =  ON_/
  2264. 01087 =  ON_SPC
  2265. 010CE =  ON_Left
  2266. 010E5 =  HP:AllowIntr
  2267. 01115 =  HP:DisableIntr
  2268. 0115A mc HP:AINRTN
  2269. 0115A @  A=IN
  2270. 01160 =  HP:CINRTN
  2271. 01160 @  C=IN
  2272. 01165 =  ON_E
  2273. 01176 =  ON_D
  2274. 0118B @  MC: Set C.A and D0 to @0011Bh
  2275. 011FC @  MC: Verify saved CRC and ?
  2276. 012EE =  HP:GetTimChk
  2277. 01307 @  MC: let C(13) = TICKS
  2278. 0130E =  HP:GetTime++
  2279. 0131D *  HP:srvc_timer2
  2280. 0172B P  RescanAlarms
  2281. 0172B @  ??? rescan Alarms ??? 
  2282. 017A6 mc HP:makebeep
  2283. 017A6 @  beep (C=msec,D=Hz)
  2284. 018E2 *  HP:clkspd
  2285. 01AD7 *  HP:RCKBp
  2286. 01B8F *  HP:DispOn
  2287. 01BBD *  HP:DispOff
  2288. 01C31 *  HP:D0->Row1
  2289. 01C58 *  HP:D0->Sft1
  2290. 01DA1 mc GetRAMSize(b)
  2291. 01DA1 @  Call: b = 0x80000 or other base-address
  2292. 01DA1 @  Ret:  cflag set: not ram;  else:  c = '128K' or '032K'
  2293. 01E5E P  Called:04895 113A5 17BA4 
  2294. 01F53 P  Called:423F3
  2295. 01F6D P  HP:CLCD10
  2296. 01F6D @  Clear status & stack area
  2297. 01FA7 P  HP:CLEARLCD
  2298. 01FA7 @  Clear status & stack & menu area (entire display)
  2299. 01FBD mc HP:Warmstart
  2300. 021CC CD
  2301. 021CC @  ????Clears all display, no arguments, what else????? Called:021BA
  2302. 021E4 :: NS:ConfigLibs
  2303. 021E4 @  Configures internal & external libraries
  2304. 02216 :: NS:ConfigLibs{}
  2305. 02216 @  Configure libraries (1:{#libnum1 #libnum2...})
  2306. 02248 @  Set C.A=#100h, P=0, CONFIG port 100h, clear carry
  2307. 02256 =  ConfigRAM70000
  2308. 0228E =  ConfigRAMF0000
  2309. 0250E mc MCGrobInit
  2310. 0250E @  Call: d1= **grob; c=*grob; a={len,y,x}
  2311. 0250E @  Ret:  c=*grob+len
  2312. 028FC pr HP:PRLG
  2313. 028FC @  prolog signature (enter machine code)
  2314. 02911 pr HP:DOBINT
  2315. 02911 @  # prolog (/U #)
  2316. 02933 pr HP:DOREAL
  2317. 02933 @  % prolog (/U %)
  2318. 02955 pr NS:DOLONGREAL
  2319. 02955 @  %% prolog (/U %%)
  2320. 02977 pr HP:DOCMP
  2321. 02977 @  C% prolog (/U C%)
  2322. 0299D pr NS:DOLONGCMP
  2323. 0299D @  C%% prolog (/U C%%)
  2324. 029BF pr HP:DOCHAR
  2325. 029BF @  Char prolog (/U CHR)
  2326. 029E8 pr HP:DOARRY
  2327. 029E8 @  Array prolog (/U ARRY)
  2328. 02A0A pr NS:DOLNKARRY
  2329. 02A0A @  Linked Array prolog (/U LNKARRY)
  2330. 02A2C pr HP:DOCSTR
  2331. 02A2C @  $ prolog (/U $)
  2332. 02A4E pr HP:DOHSTR
  2333. 02A4E pr HP:DOHXS
  2334. 02A4E @  HXS prolog (/U HXS)
  2335. 02A74 pr HP:DOLIST
  2336. 02A74 @  List prolog (/U {)
  2337. 02A96 pr NS:DODIR
  2338. 02A96 @  Directory prolog (/U DIR)
  2339. 02AB8 pr NS:DOSYMB
  2340. 02AB8 @  Algebraic prolog (/U DOSYMB)
  2341. 02ADA pr HP:DOEXT
  2342. 02ADA @  Unit prolog (/U UNIT)
  2343. 02AFC pr NS:DOTAG
  2344. 02AFC @  Tagged prolog (/U TAG)
  2345. 02B1E pr HP:DOGROB
  2346. 02B1E @  Graphic prolog (/U GROB)
  2347. 02B40 pr HP:DOLIB
  2348. 02B40 @  Library prolog (/U LIB)
  2349. 02B62 pr NS:DOBAK
  2350. 02B62 @  Backup prolog (/U BAK)
  2351. 02B88 pr HP:DOEXT0
  2352. 02B88 @  Library Data prolog
  2353. 02BAA pr NS:DOEXT1
  2354. 02BAA @  iType <BFh> object
  2355. 02BCC pr NS:DOEXT2
  2356. 02BCC @  iType <CFh> object
  2357. 02BEE pr NS:DOEXT3
  2358. 02BEE @  iType <DFh> object
  2359. 02C10 pr NS:DOEXT4
  2360. 02C10 @  iType <EFh> object
  2361. 02D9D pr HP:DOCOL
  2362. 02D9D @  Program prolog (/U ::)
  2363. 02DCC pr HP:DOCODE
  2364. 02DCC @  Code prolog (/U CODE)
  2365. 02E48 pr HP:DOIDNT
  2366. 02E48 @  ID prolog (/U ID)
  2367. 02E6D pr HP:DOLAM
  2368. 02E6D @  LAM prolog (/U LAM)
  2369. 02E92 pr HP:DOROMP
  2370. 02E92 @  XLIB Name prolog (/U ROMPTR)
  2371. 02F4C :: GETIDEVALfrom2
  2372. 02F4C @  Recall and EVALfrom2 (starting from 2nd obj in prg) (1:ID)
  2373. 02F6F P  EVALfrom2
  2374. 02F6F @  Evalualtes starting from 2nd obj (1:prg)
  2375. 02FD6 :: NS:@LAM?ERROR
  2376. 02FD6 @  Recall LAM, if not found error (1:LAM)
  2377. 02FEF :: NS:@XLIB?ERROR
  2378. 02FEF @  Recall RPL and EVAL, if not found error (1:XLIB)
  2379. 03012 mc NS:2SKIPOB
  2380. 03012 @  Skip next 2 objects
  2381. 03019 mc HP:SKIPOB
  2382. 03019 @  Skip next object
  2383. 0312B P  HP:SEMI
  2384. 0312B @  End Marker (/U ;)
  2385. 03130 @  MC: End Marker (RPL Return)
  2386. 0314C P  HP:DEPTH
  2387. 0314C @  Internal DEPTH -> (1:#)
  2388. 03188 P  HP:DUP
  2389. 03188 @  Internal DUP
  2390. 031AC P  HP:2DUP
  2391. 031AC @  Internal DUP2
  2392. 031D9 P  HP:NDUP
  2393. 031D9 @  Internal DUPN (N:...,1:# -> )
  2394. 03223 P  HP:SWAP
  2395. 03244 P  HP:DROP
  2396. 03249 mc HP:DropLoop
  2397. 03249 @  Pop stack and continue RPL
  2398. 03258 P  HP:2DROP
  2399. 0326E P  HP:NDROP
  2400. 0326E @  Internal DROPN (...1:#n)
  2401. 03295 P  HP:ROT
  2402. 032C2 P  HP:OVER
  2403. 032E2 P  HP:PICK
  2404. 032E2 @  Internal PICK (N:...1:#n)
  2405. 032F3 @  MC: PICK A'th from C
  2406. 0331C @  MC: restore D1 from RSTK, pop stack and continue RPL
  2407. 03325 P  HP:ROLL
  2408. 03325 @  Internal ROLL (N:...,1:#n)
  2409. 03330 @  MC: ROLL A.A levels and continue RPL
  2410. 0339E P  HP:UNROLL
  2411. 0339E @  Internal ROLLD (N:...,1:#n)
  2412. 033A9 @  MC: ROLLD A.A levels and continue RPL
  2413. 03416 @  MC: garbage collect need 1 stack element
  2414. 0341D @  MC: garbage collect need C.A stack elements
  2415. 03442 P  HP:MAKEARRY
  2416. 03442 @  Create unlinked array (2:{#dim1 #dim2} 1:% C% $ # -> 1:[])
  2417. 03562 P  HP:ARSIZE
  2418. 03562 @  Size (#xdim*#ydim) (1:[] -> 1:#elements)
  2419. 0357C mc HP:PUSH#ALOOP
  2420. 0357C @  Push A as new # and continue RPL
  2421. 0357F mc HP:PUSH#LOOP
  2422. 0357F @  Push R0 as new # and continue RPL
  2423. 0358F P  NS:[]TYPEPROLOG
  2424. 0358F @  (1:[] -> 1:#prolog of contents)
  2425. 035A9 P  HP:DIMLIMITS
  2426. 035A9 @  Get array dimensions (1:[] -> 1:{#dim1 (#dim2)} )
  2427. 0366F mc HP:GPOverWrR0Lp
  2428. 03672 mc HP:GPOverWrALp
  2429. 03672 @  Restore regs, push A and continue RPL
  2430. 03685 P  NS:Element?#
  2431. 03685 @  Does element exist? (2:{#dim1 (#dim2)} 1:[] -> 2:#loc 1:T / 1:F)
  2432. 036F7 mc HP:Push#TLoop
  2433. 0371D P  HP:GETATELN
  2434. 0371D @  Get [] element (2:#loc 1:[] -> 2:element 1:True /1: False)
  2435. 03991 mc HP:MUL#
  2436. 039BE @  MC: C.A = malloc(C.A nibbles) w/GC
  2437. 039E3 @  MC: restore regs and Error: Insufficient Memory
  2438. 039EF mc HN:ECUSER
  2439. 03A81 P  HP:TRUE 
  2440. 03A86 mc HP:PUSHA
  2441. 03A86 @  Push A.A onto stack
  2442. 03AC0 P  HP:FALSE
  2443. 03ADA P  HP:XOR
  2444. 03AF2 P  HP:NOT
  2445. 03B06 @  MC: replace stk1 with False and continue RPL
  2446. 03B1A @  MC: replace stk1 with True and continue RPL
  2447. 03B2E P  HP:EQ
  2448. 03B2E @  Equivalent if object adresses are the same
  2449. 03B46 P  HP:AND
  2450. 03B75 P  HP:OR
  2451. 03B97 P  HP:EQUAL
  2452. 03B97 @  Equivalent if object prologs & contents are the same
  2453. 03C64 P  HP:TYPE
  2454. 03C64 @  get object prolog (subset composites??)
  2455. 03CA6 P  HP:#0=
  2456. 03CC7 P  HP:#0<>
  2457. 03CE4 P  HP:#<
  2458. 03D19 P  HP:#=
  2459. 03D4E P  HP:#<>
  2460. 03D83 P  HP:#>
  2461. 03DBC P  HP:#+
  2462. 03DC7 @  MC: push A as new # and continue RPL
  2463. 03DD0 @  MC: push R0 as new # and continue RPL
  2464. 03DE0 P  HP:#-
  2465. 03DEF P  HP:#1+
  2466. 03E0E P  HP:#1-
  2467. 03E2D P  HP:#2+
  2468. 03E4E P  HP:#2-
  2469. 03E6F P  HP:#2*
  2470. 03E8E P  HP:#2/
  2471. 03EB1 P  HP:#AND
  2472. 03EC2 P  HP:#*
  2473. 03EF7 P  HP:#/
  2474. 03F14 mc HP:Push2#Loop
  2475. 03F14 @  Push R0 & R1 and continue rpl
  2476. 03F24 mc HP:IntDiv
  2477. 03F5D mc HP:POP2#
  2478. 03F5D @  Pop stk2 and stk1 (#) into A.A and C.A
  2479. 03F8B #  HP:TYPEREAL
  2480. 03F8B @  <2933h> (% prolog)
  2481. 03F95 #  NS:TYPECMP
  2482. 03F95 @  <2977h> (C% prolog)
  2483. 03F9F #  NS:TYPELIST
  2484. 03F9F @  <2A74h> (List prolog)
  2485. 03FA9 #  HP:TYPEIDNT
  2486. 03FA9 @  <2948h> (ID prolog)
  2487. 03FB3 #  NS:TYPECOL
  2488. 03FB3 @  <2D9Dh> (Program prolog)
  2489. 03FBD #  NS:TYPESYMB
  2490. 03FBD @  <2AB8h> (Algebraic prolog)
  2491. 03FC7 #  NS:TYPEDIR
  2492. 03FC7 @  <2A96h> (Directory prolog)
  2493. 03FD1 #  NS:TYPELAM
  2494. 03FD1 @  <2E6Dh> (LAM prolog)
  2495. 03FDB #  NS:TYPELONGREAL
  2496. 03FDB @  <2955h> (%% prolog)
  2497. 03FE5 #  NS:TYPEUNIT
  2498. 03FE5 @  <2ADAh> (Unit prolog)
  2499. 03FEF #  HP:ZERO
  2500. 03FEF #  any
  2501. 03FEF #  NS:##0
  2502. 03FF9 #  HP:ONE
  2503. 03FF9 #  HP:real
  2504. 03FF9 #  NS:##1
  2505. 04003 #  HP:TWO
  2506. 04003 #  cmp
  2507. 04003 #  NS:##2
  2508. 0400D #  HP:THREE
  2509. 0400D #  HP:str
  2510. 0400D #  NS:##3
  2511. 04017 #  HP:FOUR
  2512. 04017 #  arry
  2513. 04017 #  NS:##4
  2514. 04021 #  HP:FIVE
  2515. 04021 #  HP:list
  2516. 04021 #  NS:##5
  2517. 0402B #  HP:SIX
  2518. 0402B #  HP:id
  2519. 0402B #  HP:idnt
  2520. 0402B #  NS:##6
  2521. 04035 #  HP:SEVEN
  2522. 04035 #  lam
  2523. 04035 #  NS:##7
  2524. 0403F #  HP:EIGHT
  2525. 0403F #  HP:seco
  2526. 0403F #  NS:##8
  2527. 04049 #  HP:NINE
  2528. 04049 #  HP:symb
  2529. 04049 #  NS:##9
  2530. 04053 #  HP:TEN
  2531. 04053 #  HP:sym
  2532. 04053 #  NS:##a
  2533. 0405D #  HP:ELEVEN
  2534. 0405D #  hxs
  2535. 0405D #  NS:##B
  2536. 04067 #  HP:TWELVE
  2537. 04067 #  grob
  2538. 04067 #  NS:##C
  2539. 04071 #  HP:THIRTEEN
  2540. 04071 #  TAGGED
  2541. 04071 #  NS:##D
  2542. 0407B #  HP:FOURTEEN
  2543. 0407B #  HP:EXT
  2544. 0407B #  unitob
  2545. 0407B #  NS:##E
  2546. 04085 #  HP:FIFTEEN
  2547. 04085 #  romp
  2548. 04085 #  NS:##F
  2549. 0408F #  HP:REALOB
  2550. 0408F #  HP:SIXTEEN
  2551. 0408F #  NS:##10
  2552. 04099 #  HP:2REAL
  2553. 04099 #  HP:REALREAL
  2554. 04099 #  HP:SEVENTEEN
  2555. 04099 #  NS:##11
  2556. 040A3 #  HP:EIGHTEEN
  2557. 040A3 #  NS:##12
  2558. 040AD #  HP:NINETEEN
  2559. 040AD #  NS:##13
  2560. 040B7 #  HP:TWENTY
  2561. 040B7 #  NS:##14
  2562. 040C1 #  HP:TWENTYONE
  2563. 040C1 #  NS:##15
  2564. 040CB #  HP:TWENTYTWO
  2565. 040CB #  NS:##16
  2566. 040D5 #  HP:TWENTYTHREE
  2567. 040D5 #  NS:##17
  2568. 040DF #  HP:TWENTYFOUR
  2569. 040DF #  NS:##18
  2570. 040E9 #  HP:TWENTYFIVE
  2571. 040E9 #  NS:##19
  2572. 040F3 #  HP:REALSYM
  2573. 040F3 #  HP:TWENTYSIX
  2574. 040F3 #  NS:##1A
  2575. 040FD #  HP:TWENTYSEVEN
  2576. 040FD #  NS:##1B
  2577. 04107 #  HP:TWENTYEIGHT
  2578. 04107 #  NS:##1C
  2579. 04111 #  HP:TWENTYNINE
  2580. 04111 #  NS:##1D
  2581. 0411B #  HP:REALEXT
  2582. 0411B #  HP:THIRTY
  2583. 0411B #  NS:##1E
  2584. 04125 #  HP:THIRTYONE
  2585. 04125 #  bin
  2586. 04125 #  NS:##1F
  2587. 0412F #  HP:THIRTYTWO
  2588. 0412F #  NS:##20
  2589. 04139 #  HP:THIRTYTHREE
  2590. 04139 #  NS:##21
  2591. 04143 #  HP:THIRTYFOUR
  2592. 04143 #  NS:##22
  2593. 0414D #  HP:THIRTYFIVE
  2594. 0414D #  NS:##23
  2595. 04157 #  HP:THIRTYSIX
  2596. 04157 #  NS:##24
  2597. 04161 #  HP:THIRTYSEVEN
  2598. 04161 #  NS:##25
  2599. 0416B #  HP:THIRTYEIGHT
  2600. 0416B #  NS:##26
  2601. 04175 #  HP:THIRTYNINE
  2602. 04175 #  NS:##27
  2603. 0417F #  HP:FORTY
  2604. 0417F #  HP:FOURTY
  2605. 0417F #  NS:##28
  2606. 04189 #  HP:FORTYONE
  2607. 04189 #  NS:##29
  2608. 04193 #  HP:FORTYTWO
  2609. 04193 #  NS:##2A
  2610. 0419D #  HP:FORTYTHREE
  2611. 0419D #  NS:##2B
  2612. 041A7 :: HP:TurnOff
  2613. 041A7 @  Internal OFF
  2614. 041D4 :: DODEEPSLEEP
  2615. 041D4 @  << ( Prepare off) DEEPSLEEP DROP >>
  2616. 041ED P  HP:DEEPSLEEP
  2617. 041ED @  Internal OFF, ( -> 1:T/F) (False if ON was pressed, else True)
  2618. 0426A :: HP:ShowInvRomp
  2619. 0426A @  <132h> <8h> Jstmsgs Flashed (Invalid card data)
  2620. 04292 mc HP:DeepSleep
  2621. 04546 P  NS:GETWARN#
  2622. 04546 @  Returns last system warning (-> 1:#) 
  2623. 04546 @  #0=OK, #1=Alarm, #2=LowBat(S), #4=LowBat(P1), #8=LowBat(P2)
  2624. 04577 P  NS:WARN#>$22
  2625. 04577 @  Gets last system warning msg 
  2626. 04577 @  (1:# -> 1:$) (#0:Alarm #1:Low(S) #2:Low(P1) #3:Low(P2))
  2627. 04708 P  HP:CHECKKEY
  2628. 04708 @  Returns, but doesn't pop next key from buffer
  2629. 04708 @  (-> 2:#KeyCode 1:True / 1:False)
  2630. 04714 P  HP:GETTOUCH
  2631. 04714 @  Pop next key from key buffer (-> 2:#KeyCode 1:True / 1:False)
  2632. 047C7 P  HP:REPKEY?
  2633. 047C7 @  Key pressed? (1:#keycode -> 1:T/F)
  2634. 04840 mc HP:POPKEY
  2635. 04890 :: Called:421BD
  2636. 04890 @  << 01E5E 048A9 keywait >>
  2637. 048A9 :: Called:0489A
  2638. 048A9 @  << 0E7CE case 048B8 DispTimeReq&DA1IsStat? case 048E0 >>
  2639. 048B8 :: Called:057AB
  2640. 048B8 @  <<DispTimeReq&DA1IsStat? case DA1IsStat?SHOWTIME 0CEEA >>
  2641. 048E0 :: Called:none
  2642. 048E0 @  << 0CED9 DA1IsStat?SHOWTIME >>
  2643. 048F9 :: DispTimeReq&DA1IsStat?
  2644. 048F9 @  Clock req. & saved display on? (-> 1:T/F)
  2645. 04912 P  keywait
  2646. 04912 @  Called:0489F
  2647. 04929 mc HP:liteslp
  2648. 04929 @  Machine code keywait
  2649. 04999 mc HP:KeyInBuff?
  2650. 04A0B P  HP:GETPROC
  2651. 04A0B @  Recall #menuitem contents (1:#1-#6 -> 1:ID/CMD/DIR)
  2652. 04A41 P  HP:GETDF
  2653. 04A41 @  Recall #menuitem name (1:#1-#6 -> 1:ID/$)
  2654. 04A4C P  NS:STODF
  2655. 04A4C @  Sto #menuitem name (2:$ 1:#1-#6)
  2656. 04A57 P  NS:SetKeys
  2657. 04A57 @  Set prg according to shifts (2:prg 1:#7 ->)
  2658. 04B15 mc getmenu
  2659. 04B76 mc getmenuent
  2660. 04B76 @  D0 = A + 5*(R0 - 1) ...
  2661. 04CDC #  MsgTable000
  2662. 04CDC @  Reference to message table for library 000 (XLIB 0) (<72000h>)
  2663. 04CE6 P  HP:ERROR@
  2664. 04CE6 @  Rcl last #error from ERROR#place (@70763) (-> 1:#error)
  2665. 04D0E P  HP:ERRORSTO
  2666. 04D0E @  Store new #error into ERROR#place (@70763) (1:#error)
  2667. 04D19 @  MC: let Last Error Code = A.A
  2668. 04D33 P  HP:ERRORCLR
  2669. 04D33 @  clear Last #error from ERROR#place (@70763)
  2670. 04D3E P  HP:DROPNULL$
  2671. 04D57 P  NS:2DROPNULL$
  2672. 04D64 :: HP:GETTHEMESG
  2673. 04D64 @  If <70000h> then ReplLevel1, else JstGETTHEMESG (1:#addr -> 1:$)
  2674. 04D87 :: HP:JstGETTHEMESG
  2675. 04D87 @  Fetches message from message table (1:# -> 1:$)
  2676. 04D9B :: JstGETTHEMESGvalid
  2677. 04D9B @  Fetch message with valid args! (2:# 1:# -> 1:$)
  2678. 04DD7 P  split#
  2679. 04DD7 @  (<54321h> -> <21h> <543h>)
  2680. 04E07 P  ReplLevel1
  2681. 04E07 @  replace stk1 (@d1) with @70600 (STK1#place)
  2682. 04E37 P  StoreLevel1
  2683. 04E37 @  save ptr to stk1 (@d1) into @70600 (STK1#place)
  2684. 04E5E P  HP:ERRSET
  2685. 04E5E @  Set error trapping environment
  2686. 04EA4 :: HP:ABORT
  2687. 04EA4 @  Clears last error, then does ERRJMP (:: ERRORCLR ERRJMP ;)
  2688. 04EA4 @  Executed if ATTN key is pressed
  2689. 04EB8 P  HP:ERRTRAP
  2690. 04EB8 @  Next ob is error trap prg
  2691. 04ED1 P  HP:ERRJMP
  2692. 04ED1 @  Do error code in ERROR#place (@70763)
  2693. 04F19 mc CleanErrorTrap
  2694. 04FAA P  NS:SETPowLostERR
  2695. 04FAA @  Error: Power Lost
  2696. 04FB6 P  HP:SETMEMERR
  2697. 04FB6 @  Error: Insufficient Memory
  2698. 04FC2 P  NS:SETDirRecuERR
  2699. 04FC2 @  Error: Directory Recursion
  2700. 04FCE P  NS:SETUndfLAMERR
  2701. 04FCE @  Error: Undefined LAM
  2702. 04FDA P  NS:SETInvCardERR
  2703. 04FDA @  Error: Invalid Card Data
  2704. 04FE6 P  NS:SETObInUseERR
  2705. 04FE6 @  Error: Object In Use
  2706. 04FF2 P  NS:SETNoPortERR
  2707. 04FF2 @  Error: Port Not Available
  2708. 04FFE P  NS:SETPortMemERR
  2709. 04FFE @  Error: No Room in Port
  2710. 0500A P  NS:SETNPortObERR
  2711. 0500A @  Error: Object Not in Port
  2712. 05016 P  NS:SETUndfXLERR
  2713. 05016 @  Error: Undefined XLIB Name
  2714. 0501E @  MC: invoke error code in C.P
  2715. 05023 mc HP:Errjmp
  2716. 05023 @  Invoke error code in A.A
  2717. 05040 P  HP:ATTNFLG@
  2718. 05040 @  Recall ATTN counter from ATTNFLG (@70679) (-> 1:#)
  2719. 05068 P  HP:ATTNFLGCLR
  2720. 05068 @  Clear Attn counter in ATTNFLG (@70679.A = 0) (not from keybuffer!)
  2721. 05089 P  HP:CARCOMP
  2722. 05089 @  Get first element of composite (Also UVAL) (1:comp -> 1:Ob)
  2723. 050ED P  HP:CAR$
  2724. 050ED @  Get first char of $ (1:$ -> 1:Char | 1:NULL$ -> 1:NULL$)
  2725. 05143 mc HP:GETPTRLOOP
  2726. 05143 @  Restore D,B,D1,D0 (C=D0), clear carry and continue RPL
  2727. 05153 :: HP:CDRCOMP
  2728. 05153 @  Internal SUB 2 to end (1:comp -> 1:comp)
  2729. 0516C :: HP:CDR$
  2730. 0516C @  internal SUB 2 to end (1:$ -> 1:$ | 1:NULL$ -> 1:NULL$)
  2731. 05176 #  <FFFFFh>
  2732. 0518A P  HP:&HXS
  2733. 0518A @  Appends HXS2 to HXS1 (2:HXS1 1:HXS2 -> 1:HXS3)
  2734. 05193 P  HP:&$
  2735. 05193 @  Internal + (2:$2 1:$1 -> 1:$)
  2736. 0521F :: HP:&COMP
  2737. 0521F @  Internal + (2:comp2 1:comp1 -> 1:comp)
  2738. 0525B P  HP:>H$
  2739. 0525B @  Char to head of $ (2:$ 1:Char -> 1:$')
  2740. 052C6 :: NS:>HCOMP
  2741. 052C6 @  Obj to head of composite (2:comp 1:Any -> 1:comp)
  2742. 052EE P  HP:>T$
  2743. 052EE @  Char to tail of $ (2:$ 1:Char -> 1:$')
  2744. 052FA :: HP:>TCOMP
  2745. 052FA @  Obj to tail of composite (2:comp 1:Any -> 1:comp)
  2746. 05331 P  NS:>COMP
  2747. 05331 @  build composite object (N+2:Obj1...,2:#n 1:#prolog -> 1:comp)
  2748. 05445 :: HP:::N
  2749. 05445 @  Internal ->PROGRAM (N+1:Obj1...1:#n -> 1:seco)
  2750. 05459 :: HP:{}N
  2751. 05459 @  Internal ->LIST (N+1:Obj1...1:#n -> 1:{})
  2752. 0546D :: HP:SYMBN
  2753. 0546D @  Internal ->ALGEBRAIC (N+1:Obj1...1:#n -> 1:Symb)
  2754. 05481 :: NS:UNITN
  2755. 05481 @  Internal ->UNIT (N+1:Obj1...1:#n -> 1:Unit)
  2756. 054AF P  HP:INNERCOMP
  2757. 054AF @  Internal OBJ-> (1:comp -> N+1:Obj1...1:#n)
  2758. 0554C mc HP:DOGARBAGE
  2759. 05566 P  NS:NULLHXS?
  2760. 0556F P  HP:NULL$?
  2761. 0556F @  (1:$ -> 1:T/F)
  2762. 055B7 P  NS:NULLCOMP?
  2763. 055B7 @  (1:comp -> 1:T/F)
  2764. 055D5 h# HP:NULLHXS
  2765. 055D5 @  HXS template
  2766. 055DF $  HP:NULL$
  2767. 055E9 {} HP:NULL{}
  2768. 055F3 '' NS:NULLSYMB
  2769. 055F3 @  Algebraic template (Sysevaling this crashes)
  2770. 055FD :: HP:NULL::
  2771. 055FD @  Unevaluated null program
  2772. 05607 :: EVALNULL::
  2773. 05607 @  Evaluate NULL::
  2774. 05616 P  HP:LENHXS
  2775. 05616 @  Internal SIZE (1:hxs -> 1:#nibbles)
  2776. 05622 P  HP:OVERLEN$
  2777. 05622 @  SIZE of level 2 $ (2:$ 1:Any -> 3:$ 2:Any 1:#bytes)
  2778. 05636 P  HP:LEN$
  2779. 05636 @  Internal SIZE (1:$ -> 1:#bytes)
  2780. 05626 @  Note:LEN can be compared directly with #n*2+5 and #= #<> etc
  2781. 0567B P  HP:LENCOMP
  2782. 0567B @  Internal SIZE (1:comp -> 1:#obs)
  2783. 056B6 P  HP:NTHELCOMP
  2784. 056B6 @  Internal GET (2:comp 1:#i) -> (2:Obj 1:T / 1:F)
  2785. 05733 P  HP:SUB$
  2786. 05733 @  Internal SUB (bytes) (3:$ 2:#start 1:#end -> 1:$)
  2787. 05815 P  HP:SUBHXS
  2788. 05815 @  Internal SUB (nibbles) (3:hxs 2:#start 1:#end -> 1:hxs)
  2789. 05821 P  HP:SUBCOMP
  2790. 05821 @  Internal SUB (3:comp 2:#start 1:#end -> 1:comp) (Does range checking)
  2791. 05902 P  HP:OSIZE
  2792. 05902 @  Internal BYTES (size only) (1:Any -> 1:#bytes)
  2793. 05944 P  HP:OCRC
  2794. 05944 @  Internal BYTES (1:RAM-Object -> 2:#nibbles 1:HXScrc)
  2795. 0596D mc HP:PUSHhxsLoop
  2796. 0597E mc HP:DoCRCc
  2797. 05981 mc HP:DoCRC
  2798. 059CC P  HP:#>HXS
  2799. 059CC @  Internal SB->B (1:# -> 1:hxs)
  2800. 05A03 P  HP:HXS>#
  2801. 05A03 @  Internal B->SB (1:hxs -> 1:#)
  2802. 05A51 P  HP:CHR>#
  2803. 05A51 @  Character to # (1:Char -> 1:#)
  2804. 05A75 P  HP:#>CHR
  2805. 05A75 @  # to Character (1:# -> 1:Char)
  2806. 05AB3 :: HP:CHANGETYPE
  2807. 05AB3 @  NEWOB and change object prolog (2:Any 1:#prolog -> 1:New-Obj)
  2808. 05ACC P  NS:!CHANGETYPE
  2809. 05ACC @  Change object prolog (NO NEWOB) (2:Any 1:#prolog -> 1:Ob)
  2810. 05AED :: NS:ID>LAM
  2811. 05AED @  Change object prolog to LAM (1:ID -> 1:LAM)
  2812. 05B01 :: NS:LAM>ID
  2813. 05B01 @  Change object prolog to ID (1:LAM -> 1:ID)
  2814. 05B15 P  HP:$>ID
  2815. 05B15 @  $ to ID conversion (1:$ -> 1:ID)
  2816. 05B79 mc HP:MAKE$
  2817. 05B79 @  Allocate string
  2818. 05B7D mc HP:MAKE$N
  2819. 05B7D @  Allocate string (C.A = #nibbles)
  2820. 05BE9 P  HP:ID>$
  2821. 05BE9 @  ID/LAM to $ conversion (no quotes) (1:ID/LAM -> 1:$)
  2822. 05C27 P  HP:%>C%
  2823. 05C27 @  Internal R->C (2:%re 1:%im -> 1:C%)
  2824. 05C8A P  NS:%%>C%%
  2825. 05C8A @  Internal LR->LC (2:%%re 1:%%im -> 1:C%%)
  2826. 05D2C P  HP:C%>%
  2827. 05D2C @  Internal C->R (1:C% -> 2:%re 1:%im)
  2828. 05DBC P  HP:C%%>%%
  2829. 05DBC @  Internal LC->LR (1:C%% -> 2:%%re 1:%%im)
  2830. 05E81 :: HP:>TAG
  2831. 05E81 @  Internal ->TAG (2:Any 1:$tag -> 1:Tagged) (Doesn't check LEN$<256)
  2832. 05E9F P  NS:{}>TAG
  2833. 05E9F @  List to Tagged (1:{ID Any} -> 1: Tagged)
  2834. 05EC7 :: NS:TAG>
  2835. 05EC7 @  Internal OBJ-> (1:Tagged -> 2:Obj 1:$tag)
  2836. 05EEA P  NS:CARLAM>ID
  2837. 05EEA @  Change prolog of list element one to ID (1:{LAM Any..} -> 1:{ID Any..}
  2838. 05F2E :: HP:ID>TAG
  2839. 05F2E @  Tag ob with name (2:Obj 1:ID/LAM -> 1:Tagged)
  2840. 05F42 P  HP:GARBAGE
  2841. 05F42 @  RPL Garbage Collect
  2842. 05F61 P  HP:MEM
  2843. 05F61 @  Internal MEM (-> 1:#nibbles)
  2844. 0613E mc HP:GARBAGECOL
  2845. 0613E @  Garbage collect and set D
  2846. 064BD :: MakeNEWcontents
  2847. 064BD @  << DUP TOTEMPSWAP 064E2 >>
  2848. 064D6 P  Called:097D4
  2849. 064E2 P  Called:064CC
  2850. 06529 mc HP:PUSH2#
  2851. 06529 @  Push R0 and R1 as new #
  2852. 06537 mc HP:PUSH#
  2853. 06537 @  Push R0 as new #
  2854. 065AA mc HP:GPMEMERR
  2855. 065AA @  Restore registers and Error: Insufficient Memory
  2856. 065D9 P  DUPROMObj?
  2857. 065D9 @  Is ob in HARDROM (ROM cards too??) (1:Any -> 2:Any 1:T/F)
  2858. 065E5 P  DUPUserObj?
  2859. 065E5 @  Is ob a user object? (1:Any -> 2:Any 1:T/F)
  2860. 065E5 @  Hmm. Couldn't get False from this ????????
  2861. 06641 mc HP:POP#
  2862. 06641 @  Pop stk1 (#) into A.A
  2863. 06657 P  HP:TOTEMPOB
  2864. 06657 @  Internal NEWOB (1:Any -> 1:Any (new copy) )
  2865. 066B9 mc HP:MOVEUP
  2866. 066B9 @  blkcopy_descent
  2867. 0670C mc HP:MOVEDOWN
  2868. 0670C @  Block copy (D0:src,D1:dst,C.A=nibbles)
  2869. 0679B mc HP:SAVPTR
  2870. 0679B @  Save D0,D1,B,D (uses C,D0), clear carry
  2871. 067D2 mc HP:GETPTR
  2872. 067D2 @  Restore D,B,D1,D0 (C=D0), clear carry
  2873. 06806 mc HP:ROOM
  2874. 06806 @  Let C.A = free memory
  2875. 06992 mc HN:MOVERSD
  2876. 069C5 mc HN:MOVEDSU
  2877. 069F7 mc HP:ADJMEM
  2878. 06A1D mc HN:MOVEDSD
  2879. 06A53 mc HN:MOVERSU
  2880. 06AD8 mc HP:CREATETEMP
  2881. 06B3E P  DUPDynamicObj?
  2882. 06B3E @  Is obj in dynamic memory? (1:Any -> 2:Any 1:T/F)
  2883. 06B3E @  Not in Port0, protected port, HARDROM (addr<70000) else??
  2884. 06B4E P  HP:INTEMNOTREF?
  2885. 06B4E @  Is obj in TEMPOB area, not referenced, not in composite?
  2886. 06B4E @  (1:Any -> 2:Any 1:T/F)
  2887. 06B5A mc DUPRAMObj?
  2888. 06BC2 :: DupSystemObj?
  2889. 06BC2 @  Is obj a system object???? (DUPUserObj? NOT) (1:Any -> 2:Any 1:T/F)
  2890. 06DDE P  Called:5E193 5E19D 5E1CF
  2891. 06E8E P  HP:NOP
  2892. 06E8E @  No Operation (continue RPL)
  2893. 06E97 P  HP:'
  2894. 06E97 @  Push next ob & advance interpreter pointer
  2895. 06EEB P  HP:'R
  2896. 06EEB @  Push next object in previous stream & advance ret pointer
  2897. 06EEB @  If ret pointee is SEMI, push NULL:: & do not advance ret pointer
  2898. 06F66 P  HP:'REVAL
  2899. 06F66 @  'R then EVAL (Eval next ob from prev. stream & advance ret pointer)
  2900. 06F8E P  HP:EVAL
  2901. 06F8E @  Internal EVAL (1:Not {} ALG or TAGGED)
  2902. 06F9F P  HP:>R
  2903. 06F9F @  Push pointer to next obj to return stack
  2904. 06FB7 P  HP:RDROP
  2905. 06FB7 @  Pop return stack (= skip remainder of prev. instr. stream)
  2906. 06FD1 P  HP:COLA
  2907. 06FD1 @  Execute the next object in this stream & return
  2908. 07012 P  HP:R@
  2909. 07012 @  Push remainder of prev. instr. stream (doesn't advance ret.pointer)
  2910. 07012 @  Example: :: :: R@ EVAL <foo> ; <bar> ;  =  :: <bar> <foo> <bar> ;
  2911. 0701F P  HP:R>
  2912. 0701F @  Push & Skip remainder of prev. instr. stream
  2913. 0701F @  Example: :: :: R> EVAL <foo> ; <bar> ;  =  :: <bar> <foo> ;
  2914. 070C3 P  HP:RPITE
  2915. 070C3 @  Stack version of IF-THEN-ELSE (3:flag 2:Trueprg 1:Falseprg)
  2916. 070FD P  HP:RPIT
  2917. 070FD @  Stack version of IF-THEN (2:flag 2:Trueprg)
  2918. 0712A P  HP:?SKIP
  2919. 0712A P  HP:NOT_IT
  2920. 0712A @  If pop stk1 = True, then SKIP
  2921. 0714D P  HP:SKIP
  2922. 0714D @  Skip next object
  2923. 0715C P  NS:2SKIP
  2924. 0715C @  Skip next two objects
  2925. 07161 @  MC: skip next two objects and continue RPL
  2926. 0716B P  NS:IDUP
  2927. 0716B @  Set return to self ( BEGIN jumps here )
  2928. 071A2 P  HP:BEGIN
  2929. 071A2 @  Start loop ( Copies interpreter pointer (I) onto return stack )
  2930. 071AB P  HP:AGAIN
  2931. 071AB @  Copies top of return stack to interpreter pointer
  2932. 071AB @  (BEGIN <loop clause> AGAIN)
  2933. 071C8 P  HP:UNTIL
  2934. 071C8 @  If True, pop return stack, else copy it to interpreter pointer
  2935. 071C8 @  (BEGIN <loop clause> UNTIL)
  2936. 071E5 P  HP:REPEAT
  2937. 071E5 @  Copies top of return stack to interpreter pointer
  2938. 071E5 @  (BEGIN <test clause> WHILE <loop clause> REPEAT)
  2939. 071EE P  HP:WHILE
  2940. 071EE @  If False pop return stack & 2SKIP (over REPEAT)
  2941. 071EE @  (BEGIN <test clause> WHILE <loop clause> REPEAT)
  2942. 07221 P  HP:INDEX@
  2943. 07221 @  Push loop counter of topmost DoLoop environment as #
  2944. 07249 P  HP:ISTOP@
  2945. 07249 @  Push loop stop value of topmost DoLoop environment as #
  2946. 07258 P  HP:JINDEX@
  2947. 07258 @  Push loop counter of 2nd DoLoop environment (info+25) as #
  2948. 07264 P  NS:JSTOP@
  2949. 07264 @  Push loop stop value of 2nd DoLoop environment (info+30) as #
  2950. 07270 P  HP:INDEXSTO
  2951. 07270 @  Store stk1 (#) into top loop counter
  2952. 07295 P  HP:ISTOPSTO
  2953. 07295 @  Store stk1 (#) into top loop stop value
  2954. 072AD P  NS:JINDEXSTO
  2955. 072AD @  Store stk1 (#) into 2nd loop counter (info+25)
  2956. 072C2 P  NS:JSTOPSTO
  2957. 072C2 @  Store stk1 (#) into 2nd loop stop value (info+30)
  2958. 07321 P  #ISTOPLOOP
  2959. 07321 @  Not sure of what it does
  2960. 07334 P  HP:LOOP
  2961. 07334 @  next (DO <loop clause> LOOP)
  2962. 073A5 P  HP:+LOOP
  2963. 073A5 @  Internal STEP (DO <loop clause #step +LOOP)
  2964. 073C3 P  HP:ZERO_DO
  2965. 073C3 @  for 0 to stk1-1 ( #end ZERO DO <loop clause> LOOP)
  2966. 073CE P  HP:ONE_DO
  2967. 073CE @  for 1 to stk1-1 ( #end ONE DO <loop clause> LOOP)
  2968. 073DB P  HP:#1+_ONE_DO
  2969. 073DB @  for 1 to stk1 ( #end+1 ONE DO <loop clause> LOOP)
  2970. 073F7 P  HP:DO
  2971. 073F7 @  for stk1 to stk2-1 ( #end #start DO <loop clause> LOOP)
  2972. 07497 P  HP:ABND
  2973. 07497 @  Purge topmost temporary environment
  2974. 074D0 :: HP:BIND
  2975. 074D0 @  Create new temporary environment (N:Any,..,1:{LAMs})
  2976. 074D0 @  << INNERCOMP DOBIND >>
  2977. 074E4 P  NS:DOBIND
  2978. 074E4 @  Create new temporary environment (2N+1:Any,...N+1:LAM,...1:#N)
  2979. 075A5 P  HP:GETLAM
  2980. 075A5 @  Return obj in #nth temp var (1:#n -> 1:Obj)
  2981. 075E9 P  HP:PUTLAM
  2982. 075E9 @  Stores obj in #nth temp var (2:Obj 1:#n)
  2983. 07638 P  DetachMsgTable
  2984. 07638 @  Not sure of this one (AttachMsgTable with clrb instead)
  2985. 0764E P  AttachMsgTable
  2986. 0764E @  (2:Array of $ 1:#)
  2987. 076AE P  NS:HOMEDETACH
  2988. 076AE @  Internal DETACH from HOME directory (1:#libnum)
  2989. 07709 P  NS:HOMEATTACH
  2990. 07709 P  HP:TOSRRP
  2991. 07709 @  Internal ATTACH to HOME directory (1:#)
  2992. 077C2 P  NS:HOMEATTACHED?
  2993. 077C2 @  Is #Libnum attached to home? (1:#libnum -> 1:T/F)
  2994. 07819 P  NS:CRDIR#
  2995. 07819 @  Make empty dir (1:#libnum -> 1:emptydir)
  2996. 0791E P  #1@LAM
  2997. 0791E @  ?????????? no args
  2998. 0792A P  #@LAM
  2999. 0792A @  ?????????? (1:#)
  3000. 07943 P  HP:@LAM
  3001. 07943 @  Recall LAM's contents (1:LAM -> 2:Obj 1:T/ 1:F)
  3002. 0797B P  HP:@
  3003. 0797B @  Recall (1:LAM/ID) -> (2:contents 1:T / 1:F)
  3004. 079D7 P  MakeUserObj(??)
  3005. 07BFD P  NS:ID>ROMPTR
  3006. 07BFD @  Recall command/variable (1:ID -> 2:CMD/ID 1:T / 1:F)
  3007. 07D1B P  HP:STOLAM
  3008. 07D1B @  Store to LAM (2:Any 1:LAM)
  3009. 07D27 P  HP:STO
  3010. 07D27 @  Internal STO (2:Any 1:LAM/ID) (Especially LAMs???)
  3011. 07E50 P  HP:#>ROMPTR
  3012. 07E50 @  Internal ->XLIB (2:#libnum 1:#object -> 1:XLIB)
  3013. 07E76 P  NS:RPL@
  3014. 07E76 @  Internal RPL->XLIB (1:XLIB contents -> 1:XLIB)
  3015. 07E99 P  HP:ROMPTR@
  3016. 07E99 @  Internal XLIB->RPL (1:XLIB Name -> 2:RPL 1:T / 1:F)
  3017. 07F98 P  GetAttachments
  3018. 07F98 @  get attachments (1:Dir -> 2:{} 1:T/F) (1:XLIB -> 1:#Xlibno)
  3019. 0807F P  NS:LIBLOC
  3020. 0807F @  Returns LIBs location (1:#libnum -> 2:#addr 1:T / 1:F)
  3021. 0809E P  NS:LIBSIZE
  3022. 0809E @  Returns nibbles(LIB)-10 (1#libnum -> 2:#nybbles 1:T / 1:F)
  3023. 080C9 P  NS:NEXTLIB?
  3024. 080C9 @  Does LIB or one with bigger number exist?
  3025. 080C9 @  (1:#libnum -> 2:#libnum 1:T / 2:#nextLIBno 1:T / 1:F)
  3026. 08101 P  NS:RHASH
  3027. 08101 @  Get hash table (1:#libnum -> 2:HXS 1:T / 1:F)
  3028. 0811C P  NS:RMESG
  3029. 0811C @  Get message table location (1:#libnum -> 2:[] 1:T / 1:F)
  3030. 08128 P  NS:RLINK
  3031. 08128 @  Get link table (1:#libnum -> 2:HXStable 1:T / 1:F)
  3032. 08143 P  NS:RCONFIG
  3033. 08143 @  get config code (1:#libnum -> 2:config code 1:T / 1:F)
  3034. 0814F P  NS:LIBID>#
  3035. 0814F @  Get LIB number (1:LIB_ID -> 2:#libnum 1:T / 1:F)
  3036. 081B9 P  NS:#>LIBID
  3037. 081B9 @  Get library name (1:#libnum -> 1:ID 1:True / 1:False)
  3038. 081D9 P  NS:BAK>ID
  3039. 081D9 @  Get Backup name (1:BAK -> 2:ID 1:True / 1:False)
  3040. 081EE P  NS:LIB>#
  3041. 081EE @  Get Library number (1:LIB -> 2:#libnum 1:True / 1:False)
  3042. 08207 P  NS:RPL>ID
  3043. 08207 @  RPL to ID (1:seco -> 2:ID 1:True / 1:False) (seco is ROMPTR program)
  3044. 0821F P  NS:ROMPTR>ID
  3045. 0821F @  ROMPTR Name to ID (1:XLIB -> 2:ID 1:True / 1:False)
  3046. 082E3 P  HP:RAM-WORDNAME
  3047. 082E3 @  Get object name -> (1:variable contents -> 1:ID)
  3048. 08309 P  NS:GETUPDIR
  3049. 08309 @  Recall parent directory (1:DIR -> 2:DIR 1:True / 1:False)
  3050. 08326 P  HP:LASTRAM-WORD
  3051. 08326 @  Recall first entry from DIR (1:DIR -> 2:DIR/variable 1:True /1:False )
  3052. 08376 P  HP:PREVRAM-WORD
  3053. 08376 @  Recall next entry from DIR 
  3054. 08376 @  (1:Previous var contents -> 2:Next var contents 1:True / 1:False)
  3055. 0846E mc NS:RHash
  3056. 0846E @  (A.A = LID, B.A = CMD -> A.A=D0=HASHLOC)
  3057. 085D3 P  HP:REPLACE
  3058. 085D3 @  STO (2:new contents 1:old contents -> 1:new) (Faster than usual 'STO')
  3059. 08696 P  HP:CREATE
  3060. 08696 @  STO to current dir (2:Ob 1:ID) (Ob not primitive code object)
  3061. 089D8 P  weirdoPURGE
  3062. 089D8 @  PURGE (2:var contents 1:T/F) (True = UserObj)
  3063. 089FA P  PURGEcontents
  3064. 089FA @  PURGE (1:var contents)
  3065. 08C27 :: HP:PURGE
  3066. 08C27 @  Purge variable (1:ID) (Does no type check on contents)
  3067. 08C4A :: CKPURGEcontents
  3068. 08C4A @  Makes checks too (1:var contents)
  3069. 08C68 :: STONEW
  3070. 08C68 @  STO (2:Ob 1:ID) works if ID exists/doesn't exist
  3071. 08C77 :: Replacecontents
  3072. 08C77 @  Replace var contents (3:New contents 2:Any 1:Old contents)
  3073. 08C90 :: MakeNEWcontentsSWAPDROP
  3074. 08CCC P  NS:ROMPTR>
  3075. 08CCC @  Internal XLIB-> (1:XLIB Name -> 2:#library 1:#object)
  3076. 08D08 P  HP:CONTEXT!
  3077. 08D08 @  Save to current Directory (1:DIR)
  3078. 08D4A P  NS:TMPCONTEXT!
  3079. 08D4A @  Save Temp Directory
  3080. 08D5A P  HP:CONTEXT@
  3081. 08D5A @  Recall Current Directory
  3082. 08D66 mc HP:SysPtr@
  3083. 08D66 @  Push @C.A
  3084. 08D82 P  NS:TMPCONTEXT@
  3085. 08D82 @  Recall Temp Directory
  3086. 08D92 P  HP:HOMEDIR
  3087. 08D92 P  HP:SYSCONTEXT
  3088. 08D92 @  Set Current Directory to HOME Directory
  3089. 08DC4 P  NS:SYSTMPCONTEXT
  3090. 08DC4 @  Set Temp Directory to HOME Directory
  3091. 08DD4 P  NS:HOMEDIR?
  3092. 08DD4 @  == HOMEDIR ? (1:DIR -> 1:T/F)
  3093. 08E0F :: CRDIR
  3094. 08E0F @  Deep internal CRDIR (1:ID -> ) (Doesn't check if ID is already used)
  3095. 08E14 #  ##7FF
  3096. 08E32 :: NS:LIBS{}
  3097. 08E32 @  Return {} with all #libnums (internal & external)
  3098. 08E50 :: >TCOMP&+#1
  3099. 08E50 @  (2:{Obj1 Obj2..} 1:#n -> 2:{Obj1 Obj2... #n} 1:#n+1
  3100. 08E73 P  2DUPRIGHTMATCH?
  3101. 08E73 @  EQUAL (2:ID/#libnum 1:BAK/LIB -> 3:ID/# 2:BAK/LIB 1:T/F)
  3102. 08F86 :: XEQPORT12STO
  3103. 08F86 @  (3:LIB/BAK 2:#libnum/ID 1:#1/#2)
  3104. 08FA9 :: PW!MPort?ROTOVER?ERR
  3105. 08FA9 @  (2:Any 1:#Port) If port Present,Writeable,Not Merged
  3106. 08FA9 @  then (-> 4:#size 3:#addr 2:Any 1:#addr)
  3107. 08FA9 @  else SETPortNotAvailERR
  3108. 08FEA :: XYZW>WXZLibUsed?ERR
  3109. 08FEA @  Error (Ob in use) if BAK/LIB and ID/#libnum are the same Library
  3110. 08FEA @  (4:ID/#libnum 3:Any3 2:BAK/LIB 1:Any1 -> 2:ID/#libnum 1:Any1)
  3111. 09067 :: 
  3112. 09071 ::
  3113. 0907B :: 
  3114. 0908F :: #7OVER=caseDROPSETTYPEERR
  3115. 09107 P  PORT12STO
  3116. 09107 @  STO (5:ID 4:Ob 3:#addr 2:#nibbles+5 1:#port (#1/#2) )
  3117. 09269 :: XEQPORT0STOCK
  3118. 09269 @  (2:LIB/BAK 1:#libnum/ID)  (Checks there already isn't one)
  3119. 09287 :: PORT12CK@
  3120. 09287 @  Recall LIB/BAK if allowed (2:ID/#libnum #1:port -> 2:LIB/BAK 1:T/1:F) 
  3121. 092E1 :: PORT0CK@
  3122. 092E1 @  (1:ID/#libnum -> 2:BAK/ID 1:T / 1:F )
  3123. 092F5 P  HOMEEND#
  3124. 092F5 @  Recalls end addr of HOME (= start of port0) ( -> 1:#addr)
  3125. 09318 :: PORT@
  3126. 09318 @  (2:ID/#libnum 1:#0/#1/#2 -> 2:LIB 1:T / 1:F)
  3127. 09327 :: DROPHOMEEND#TRUE
  3128. 09327 @  (1:Any -> 2:#port0addr 1:T)
  3129. 09340 :: PortAddr#P!M?
  3130. 09340 @  Recall port #addr and (!merged? & present?) (1:#port -> 2:#addr 1:T/F)
  3131. 093D1 :: PORTaddr@
  3132. 093D1 @  (2:ID/#libnum 1:#portaddr -> 2:BAK/LIB 1:T / 1:F)
  3133. 093D1 @  Doesn't check write etc protections
  3134. 09408 :: PORT12Purge
  3135. 09408 @  Purge (2:ID/#libnum 1:#1,#2) (Checks usage etc first)
  3136. 0941C :: LIBPURGEABLE?
  3137. 0941C @  If purgeable, nothing, else SETObjInUseERR (1:LIB/BAK -> 1:LIB/BAK)
  3138. 09453 :: PORT0PurgeCK
  3139. 09453 @  Purge (1:ID/#libnum) (Checks usage etc first)
  3140. 0948E P  NS:BAK>
  3141. 0948E @  (1:BAK -> 1:Contents)
  3142. 094A4 P  NS:HOME>BAK
  3143. 094A4 @  Makes a BAK of HOME directory (which is purged) (1:ID -> 1:BAK)
  3144. 09699 P  NS:BAK>HOME
  3145. 09699 @  Restores HOMEDIR from BAK (1:BAK ->)
  3146. 0970A P  REROOTHOME
  3147. 0970A @  Done after BAK>HOME, no idea really what it does
  3148. 09730 P  ClrUser&Alrmptrs
  3149. 09730 @  Clear ptrs to User Keys and Alarm List
  3150. 09752 :: PgDIR
  3151. 09752 @  PGDIR (1:DIR ->) Makes no reference checks (??)
  3152. 09789 :: DUPTOTEMPOBFALSEROT
  3153. 09789 @  (1:Ob -> 3:NewOb 2:F 1:Ob)
  3154. 097A7 :: NS:TRUESWAP
  3155. 097CF ::
  3156. 097ED :: PURGEDIRContents
  3157. 097ED @  PURGE DIRs contents (Empty dir remains) (1:DIR)
  3158. 09806 ::
  3159. 09838 ::
  3160. 0985B :: RCLDIRVAR
  3161. 0985B @  (2:DIR 1:{DIRID VARID } -> 2:Contents 1:T / 1:F)
  3162. 098E7 :: PREVRAM-WORDDUPNOT
  3163. 0992D :: DROPNDROPRDROPFALSE
  3164. 09B73 mc HP:COMPCONFCRC
  3165. 09B73 @  c=Crc(X042c-X044d),d0=X0428
  3166. 0A00E mc HP:CKLBCRC
  3167. 0A532 mc NS:SAFESKIPOB
  3168. 0AAB2 :: HP:PORTSTATUS
  3169. 0AAB2 @  3Falses' 4ROLL GETPORTSTATUS
  3170. 0AAB2 @  (1:#port -> 5:present? 4:writeable? 3:merged? 2:#size 1:#addr)
  3171. 0AAD0 P  GETPORTSTATUS
  3172. 0AAD0 @  (4:F..2:F 1:#port -> 5:present? 4:writeable? 3:merged? 2:#size 1:addr)
  3173. 0AB51 P  NS:PORTEND
  3174. 0AB51 @  Returns end of (used?) port (1:#port -> 1:#addr)
  3175. 0AB82 P  NS:PORTPNTR@
  3176. 0AB82 @  Returns BAK/LIB & nextaddr (1:#addr->3:BAK/LIB 2:#nextaddr 1:T / 1:F)
  3177. 0AC2A :: STOPORT0
  3178. 0AC2A @  Store to port0 (1:LIB/BAK) Does NEWOB & memory check
  3179. 0AC66 #  <36h>
  3180. 0AC70 P  STOPORT0NoneCK
  3181. 0AC70 @  Store to port0 (1:LIB/BAK) Does no NEWOB nor memory check
  3182. 0AD15 :: PORT0PURGE
  3183. 0AD15 @  Purges regardless of usage etc (1:LIB/BAK)
  3184. 0AD1A :: PREPPORTPurge
  3185. 0AD1A @  :: BEGIN DUP 0AF8B NOT UNTIL ; (1:LIB/BAK)
  3186. 0AD47 P  PORT0Purge
  3187. 0AD47 @  (1:LIB/BAK) conditions ???
  3188. 0ADEF :: PORT12PURGE
  3189. 0ADEF @  Purges regardless of usage etc (3:#portsize 2:#portaddr 1:LIB/BAK) 
  3190. 0AE03 P  PORT12Purge
  3191. 0AE03 @  (3:#portsize 2:#portaddr 1:LIB/BAK) conditions???
  3192. 0AF8B P  Called:0AD29
  3193. 0B037 P  NS:MERGE#
  3194. 0B037 @  (1:#port)
  3195. 0B4A9 :: Called:7FAB0 7FB19
  3196. 0B4A9 @  (#port Meta) If no mem in port for meta obs, error, else 0B599
  3197. 0B52B :: metaOSIZErev
  3198. 0B52B @  (Meta #0 -> ateM 1:#OSIZE(meta) )  (Meta obj is reversed exc. for#)
  3199. 0B52B @  Example: A B C * + #5 #0  ->  + * C B A #5 #20F
  3200. 0B599 :: Called:0B521
  3201. 0B599 @  (Meta #port)
  3202. 0B5A8 {} null{}
  3203. 0B5F3 P  Called:0B59E 
  3204. 0B69B P  Called:0B5DA
  3205. 0B7C6 P  Called:none
  3206. 0B9D4 :: NS:HiddenDir@
  3207. 0B9D4 @  Recall hidden Dir (2:DIR 1:T / 1:F)
  3208. 0B9E8 P  NS:?HiddenDir@
  3209. 0B9E8 @  (1:T/F -> 2:DIR 1:T / 1:F)  (HiddenDir@ uses False, dunno others)
  3210. 0BA7D P  MkNullHiddenDIR
  3211. 0BA7D @  Stores NULLDIR as hidden directory
  3212. 0BB40 :: CONFIG000
  3213. 0BB40 @  NS:MkNullHidden?
  3214. 0BB40 @  Store NULLDIR as Hidden DIR if it doesn't exist
  3215. 0BB40 @  Configuration code for library 000 (XLIB 0)
  3216. 0BB68 P  Called:0942B 2B8F8 
  3217. 0BB68 @  Also something about purging LIB/BAK (allowed?) from port0
  3218. 0BBED :: HP:TrueTrue
  3219. 0BC01 :: HP:failed
  3220. 0BC01 :: NS:FalseTrue
  3221. 0BC15 :: OVEREQUAL?DupIfTrue_!*trior_DROPGetNextTokenTRUETRUEFALSE
  3222. 0BC24 :: DROPGetNextTokenTRUETRUE
  3223. 0BC47 :: OVEREQUAL?DupTrue
  3224. 0BC47 @  EQUAL test (2:Any2 1:Any1 -> (3:Any2 2:T 1:T)/(2:Any2 1:F)
  3225. 0BC6F CD HP:!*trior
  3226. 0BCCF :: HP:!*triand
  3227. 0BCED CD 
  3228. 0BD31 :: ?!*triand
  3229. 0BD31 @  (1:T -> T !*triand) (1:F -> T T !*triand)
  3230. 0BD54 P  HP:tok8cktrior
  3231. 0BD54 P  OVEREQUALcase
  3232. 0BD60 P  HP:tok8trior
  3233. 0BDF6 :: DROPGetNextTokenCOLA
  3234. 0BF74 mc HP:UnCover4K
  3235. 0C147 mc HP:restoreiram
  3236. 0C1EF P  (1:Char) Called:0FE9E 0FF7F
  3237. 0C288 P  NS:DupPrefixChr?
  3238. 0C288 @  Is Char a unit prefix? (1:Char -> 2:Char 1:T/F)
  3239. 0C288 @  Prefixes D E G H K M P T a c d f h k m n p myy -> True
  3240. 0C2CB P  NS:DupSIUnit$?
  3241. 0C2CB @  Is $ a SIUNIT (not kg) (1:$ -> 2:$ 1:T/F) 
  3242. 0C2CB @  True if :"m" "A" "s" "K" "cd" "mol" "?")
  3243. 0C37A P  Called:0FEF8 
  3244. 0C4EC P  GETMSGTEXT
  3245. 0C4EC @  Get message (2:#msg 1:msg tbl -> 2:msg text 1:True/ 1:False)
  3246. 0C612 P  NS:RclData
  3247. 0C612 @  (1:#addr -> 2:Ob 1:T / 1:F)
  3248. 0C612 @  If #70000-#7FFFF fetches from hidden ROM
  3249. 0C737 mc ??
  3250. 0C740 mc ??
  3251. 0CA60 mc HP:ATTNchk
  3252. 0CAD7 :: Called:none
  3253. 0CAF5 P  SomethigBotAlarms{}
  3254. 0CB16 :: Called:0CAE6
  3255. 0CB25 :: CLRALARMS
  3256. 0CB25 @  Stores NULL{} into ID_ALARMS
  3257. 0CB48 :: Called:0CAEB
  3258. 0CB84 P  Called:0CB70
  3259. 0CBA2 P  Called:0CB57 0CB6B 0CB7A
  3260. 0CBAE P  NS:SETNoAlarmERR
  3261. 0CBAE @  Error: Nonexistent Alarm
  3262. 0CBB7 @  MC: Error: Invalid Date
  3263. 0CBC4 @  MC: Error: Invalid Time
  3264. 0CBD1 @  MC: Error: Invalid Repeat
  3265. 0CBDE @  MC: Error: Nonexistent Alarm
  3266. 0CBE3 @  MC: invoke error code in C.X
  3267. 0CBEF @  MC: P=0, SETHEX, restore registers, clear carry
  3268. 0CBFA P  HP:TOD
  3269. 0CBFA @  Internal TIME (-> 1:%time)
  3270. 0CC0E P  HP:DATE
  3271. 0CC0E @  Internal DATE (-> 1:%date)
  3272. 0CC39 P  HP:DDAYS
  3273. 0CC39 @  Internal DDAYS (2:%date 1:%date -> 1:%days)
  3274. 0CC5B :: DATE+
  3275. 0CC5B @  Internal DATE+ (2:%date 1:%days -> 1:%date') 
  3276. 0CC60 #  <1h>
  3277. 0CC79 P  DATE+i
  3278. 0CC79 @  Internal DATE+ (2:%date 1:% (FP = 0!!) -> 1:%date')
  3279. 0CCE2 @  MC XFER: Error: Invalid Date
  3280. 0CD2B :: >DATE
  3281. 0CD2B @  Internal ->DATE (Does CLKADJUSTED) (1:% ->)
  3282. 0CD3F :: CLKADJ
  3283. 0CD3F @  Internal CLKADJ (Does CLKADJUSTED) (1:% ->)
  3284. 0CD53 :: >TIME
  3285. 0CD53 @  Internal ->TIME (Does CLKADJUSTED) (1:% ->)
  3286. 0CD67 P  %>DATE
  3287. 0CD67 @  Internal ->DATE (1:%)
  3288. 0CDA6 P  %>TIME
  3289. 0CDA6 @  Internal ->TIME (1:%)
  3290. 0CDD0 P  A/PMNotAdj
  3291. 0CDD0 @  Internal A/PM (Doesn't do CLKADJUSTED)
  3292. 0CE0F P  %CLKADJ
  3293. 0CE0F @  Internal CLKADJ (1:%)
  3294. 0CEB9 P  Called:199FA
  3295. 0CED9 P  Called:048E5
  3296. 0CEEA P  Called:048CC 0DCE5
  3297. 0CF15 @  MC XFER: save D0,D1,B,D (uses C,D0), clear carry
  3298. 0CF1C @  MC XFER: allocate $
  3299. 0CF5B P  TICKS>$weekday
  3300. 0CF5B @  date to day-of-week (1:HXS -> 1:$)
  3301. 0CFD9 P  HP:Date>t$
  3302. 0CFD9 @  date to $date (1:% -> 1:$)
  3303. 0D06A P  HP:TOD>t$
  3304. 0D06A @  time to $time (1:% -> 1:$)
  3305. 0D143 P  TICKS>%TIME
  3306. 0D143 @  (1:HXS -> %)
  3307. 0D156 P  TICKS>%DATE
  3308. 0D156 @  (1:HXS -> %)
  3309. 0D169 P  TICKS>%REP
  3310. 0D169 @  (1:HXS -> 1:%)
  3311. 0D18A P  NS:WSLOGN
  3312. 0D18A @  Deep internal WSLOG (1:#1-#4 -> 1:$)
  3313. 0D2A3 :: NS:WSLOG
  3314. 0D2A3 @  Internal WSLOG (WSLOG# with #1-#4 -> $ $ $ $)
  3315. 0D2D5 :: NS:ClkMode?
  3316. 0D2D5 @  if Clock Display active (-40) -> True/False
  3317. 0D2E9 @  MC XFER: let C(13) = TICKS
  3318. 0D2F0 :: %DATE>$weekday
  3319. 0D2F0 @  date to day-of-week (1:% -> 1:$)
  3320. 0D304 :: HP:TIMESTR
  3321. 0D304 @  Internal TSTR (2:%date 1:%time -> 1:$)
  3322. 0D318 @  ' ' 0x20 (Character)
  3323. 0D333 @  ' ' 0x20 (Character)
  3324. 0D349 :: TICKSSTR
  3325. 0D349 @  Internal TSTR (1:TICKS -> 1:$)
  3326. 0D4AD mc HP:DAY#
  3327. 0D5E5 mc HP:ASRW5
  3328. 0D5F6 mc HP:ASLW5
  3329. 0D607 mc HP:CSRW5
  3330. 0D618 mc HP:CSLW5
  3331. 0D62F mc HP:DCHXW
  3332. 0D6D8 mc HP:FLOAT
  3333. 0D744 mc HP:Day>Date
  3334. 0D809 mc HP:getBPOFF
  3335. 0D8AE mc NS:mpop1%
  3336. 0D92C mc HP:POPDATE%
  3337. 0D92C @  c=yyyymmdd (1:%date)
  3338. 0D9C7 mc NS:CKTIME
  3339. 0DB3A mc HP:YMD>Ticks
  3340. 0DB51 mc HP:dowutil
  3341. 0DB91 mc HP:HXDCW
  3342. 0DC0F P  buscb
  3343. 0DC1C P  buscc
  3344. 0DC28 P  buscd
  3345. 0DC3B ::
  3346. 0DC6D ::
  3347. 0DC90 ::
  3348. 0DCDB ::
  3349. 0DD26 ::
  3350. 0DD4E ::
  3351. 0DD67 ::
  3352. 0DDA8 :: NS:ACKALL
  3353. 0DDA8 @  Internal ACKALL
  3354. 0DDC1 :: NS:ACK
  3355. 0DDC1 @  Internal ACK (-> 1:T/F)
  3356. 0DE0C ::
  3357. 0DE25 ::
  3358. 0DE61 ::
  3359. 0DEAC :: STOAlarm{}
  3360. 0DEAC @  Put alarm in alarmlist (2:{alarms} 1:alarm -> 2:#n 1:{})
  3361. 0DECF :: STOAlarms{}
  3362. 0DECF @  (1:NULL{} clears alarms etc)
  3363. 0DEF7 :: StoHiddenAlarms
  3364. 0DEF7 @  Store into 'Alarms' (1:Any)
  3365. 0DF01 g' NS:ID_Alarms
  3366. 0DF1E :: RCLALARMS
  3367. 0DF1E @  recall 'Alarms' ->(2:contents,1:True/False)
  3368. 0DF28 g' ID_Alarms
  3369. 0DF45 P  *alarm=0
  3370. 0DF66 :: {}2Not$?
  3371. 0DF66 @  list element 2 is not a $ -> True/False
  3372. 0DF84 ::
  3373. 0DFB1 ::
  3374. 0DFC0 ::
  3375. 0DFD9 ::
  3376. 0E006 :: NS:SHOWTICKSTIME
  3377. 0E006 @  Displays time on HBUFF on row #8 (1:TICKS (HXS) )
  3378. 0E029 :: NS:SHOW$22
  3379. 0E029 @  Displays $ (coerced to 22) on HBUFF corner (1:$ )
  3380. 0E047 :: NS:Save16
  3381. 0E047 @  Save top 16 pixel rows (-> 1:Grob)
  3382. 0E05B :: NS:Restore16
  3383. 0E047 @  Restore top 16 pixel rows (1:Grob)
  3384. 0E06F :: HP:Clr16
  3385. 0E083 :: HP:Clr8
  3386. 0E097 :: HP:Clr8-15
  3387. 0E0AB :: HP:TOP16
  3388. 0E0AB @  Get HBUFF and SUBGROB coords for Statusarea
  3389. 0E0D3 :: HP:TOP8
  3390. 0E0D3 @  Get HBUFF and SUBGROB coords for Statusline1
  3391. 0E0FB :: HP:Rows8-15
  3392. 0E0FB @  Get HBUFF and SUBGROB coords for Statusline2
  3393. 0E128 :: HP:HBUFF_X_Y
  3394. 0E128 @  Get HBUFF and WINDOW coords (#0 #0 unless scrolled)
  3395. 0E141 :: DUPRCLALARM&EVAL3rd
  3396. 0E164 :: CLKADJUSTED
  3397. 0E164 @  Called after adjusting clock
  3398. 0E17D ::
  3399. 0E19B ::
  3400. 0E1B9 P
  3401. 0E1D8 :: INTALARM>EXT
  3402. 0E1D8 @  Convert internal alarm into external alarm (1:{} -> 1:{})
  3403. 0E219 P  Sto*alarm
  3404. 0E235 P  RCLID_Alarms
  3405. 0E235 @  Recall internal 'Alarms' list 
  3406. 0E248 P  SetLastAlarm#
  3407. 0E248 @  Set_706B8
  3408. 0E26D P  GetLastAlarm#
  3409. 0E26D @  Get_706B8
  3410. 0E27D P  Get_706BD  Called:0DDE4 0EB09
  3411. 0E2A1 P  Called:0DFA2
  3412. 0E2B9 P  Called:0DFF2
  3413. 0E2D1 P  Called:0DF93 0DFDE
  3414. 0E302 P  Called:0DE8E
  3415. 0E3A6 P  Called:48B79
  3416. 0E3DF :: RCLALARM
  3417. 0E3DF @  Internal RCLALARM (1:%alarm number -> 1:{}) (Error if doesn't exist)
  3418. 0E402 :: RCLALARMN
  3419. 0E402 @  Recall N'th Alarm (1:#) -> (Alarm/True,False)
  3420. 0E41B P  Called:0DCE0
  3421. 0E43C P  Called:0DD8A
  3422. 0E461 :: NS:INSERTN{}
  3423. 0E461 @  Insert object to lists nth position (3:{} 2:Ob 1:#n -> 1:{})
  3424. 0E475 {} LAM{M_N}
  3425. 0E475 @  {LAM_M LAM_N}
  3426. 0E47A l' NS:LAM_M
  3427. 0E483 l' NS:LAM_N
  3428. 0E4A0 l' LAM_M
  3429. 0E4AE l' LAM_N
  3430. 0E4C1 l' LAM_M
  3431. 0E4DE :: NS:REMOVEN{}
  3432. 0E4DE @  Remove nth object from list (2:{} 1:#n -> {} )
  3433. 0E510 :: STOALARM%
  3434. 0E510 @  Internal STOALARM (1:% ->)
  3435. 0E524 $  null$
  3436. 0E52E %  %0
  3437. 0E54D :: STOALARM{}
  3438. 0E54D @  Internal STOALARM (1:{} ->)
  3439. 0E58E :: STOALARMNORPT
  3440. 0E58E @  (3:%date 2:%time 1:action)
  3441. 0E593 %  %0
  3442. 0E5C6 $  null$
  3443. 0E5D0 %  %0
  3444. 0E5EF :: STOALARMRPT
  3445. 0E5EF @  (4:%date 3:%time 2:action 1:%rpt)
  3446. 0E630 P  NS:DATEOK?
  3447. 0E630 @  Checks if stk1 is a valid date (Errors if not)
  3448. 0E66A P  NS:TIMEOK?
  3449. 0E66A @  Checks if stk1 is a valid time (Errors if not)
  3450. 0E693 P  NS:RPTOK?
  3451. 0E693 @  Checks if stk1 is a valid repeat factor (Errors if not)
  3452. 0E6D4 :: %ABSIPValidRpt?
  3453. 0E6D4 @  ABS IP and check if TOS is valid repeat factor (Error if not) (1:%) 
  3454. 0E6ED :: STOALARMRPT2
  3455. 0E6ED @  (4:%date 3:%time 2:action 1:%rpt) (Compare against 0E5EF later)
  3456. 0E724 :: DELALARM
  3457. 0E724 @  Internal DELALARM (1:%alarm) (Error if doesn't exist)
  3458. 0E76F :: DELALARM#
  3459. 0E76F @  Internal DELALARM (1:#alarm)
  3460. 0E78D :: PurgeAlarms
  3461. 0E78D @  Stores NULL{} in Alarms, Does RescanAlarms & CLKADJUSTED
  3462. 0E7B0 P  Called:none
  3463. 0E7BB P  Called:0DF89 0DFE8
  3464. 0E7CE P  Called:048AE
  3465. 0E7F7 P  Called:0DC9A 0DD2B 0DDF3
  3466. 0E802 P  Called:0DC95 0DD12
  3467. 0E80D P  Called:0DFC5
  3468. 0E820 P  Called:07BA6 0DC9F 0DD17 0DDFD 0DE89 0F433 0F4C9 0F519
  3469. 0E82B P  Called:0DE84
  3470. 0E836 P  Called:0DD30 0DDF8 0DE7F
  3471. 0E925 P  RclPastAlarm
  3472. 0E925 @  Recall passed alarm (1:{alarms} -> 2:{alarm} 1:T / 1:F)
  3473. 0E9B2 P  RclNextAlarm
  3474. 0E9B2 @  Recall next alarm (1:{alarms} -> 2:{alarm} 1:T / 1:F)
  3475. 0EABE :: RclALARM#num
  3476. 0EABE @  Get alarm number (2:Alarm 1:{alarms} -> 1:#)
  3477. 0EAD7 :: FINDALARM%
  3478. 0EAD7 @  Internal FINDALARM (1:%alarm)
  3479. 0EAF0 ::
  3480. 0EB31 :: FINDALARM{}
  3481. 0EB31 @  Internal FINDALARM (1:{})
  3482. 0EB6D :: CLKTICKSFINDALARM
  3483. 0EB81 :: HP:CLKTICKS
  3484. 0EB81 :: HP:SysTime
  3485. 0EB81 @  Internal TICKS (->1:HXS)
  3486. 0EB8B CD HXSTICKS
  3487. 0EB8B @  Subroutine fo TICKS (1:HXS (len=13) -> 1:HXSTICKS)
  3488. 0EBA8 :: LIMITALARM#
  3489. 0EBA8 @  Returns %alarm (%0 if alarms doesn't exist) (1:#alarm -> 1:%alarm)
  3490. 0EBD5 :: FINDALARM
  3491. 0EBD5 @  (1:TICKS (HXS) -> 1:#alarm) (len{alarms} if not found)
  3492. 0EBEE :: AnyAlarms?
  3493. 0EBEE @  if 'Alarms' list is not empty -> True/False
  3494. 0EC07 P  FindAlarm
  3495. 0EC07 @  (2:{alarms} 1:TICKS (HXS) -> 1:#alarm)
  3496. 0EC9D P  Called:0DD1C
  3497. 0ED78 P  Called:0D95C 0DFCA 421E5
  3498. 0ED95 P  Called:0DFB6
  3499. 0EDA5 :: %16HXS
  3500. 0EDA5 @  Create HXS 0 (16 nibbles)
  3501. 0EDB9 :: %13HXS
  3502. 0EDB9 @  create HXS 0 (13 nibbles)
  3503. 0EDCD :: %24HXS
  3504. 0EDCD @  create HXS 0 (24 nibbles)
  3505. 0EDE1 :: NS:MAKEHXS
  3506. 0EDE1 @  allocate HXS (1:#nibbles -> 1:HXS 0)
  3507. 0EE26 P  HXSDATE+HXSTIME
  3508. 0EE26 @  (2:HXSdate 1:HXStime)
  3509. 0EE50 :: %DATE>TICKS
  3510. 0EE50 @  date to ticks (1:% -> 1:HXS)
  3511. 0EE5F @  Code: (2:HXS 0 (13 nibbles) 1:%time -> 1:HXS (ticks)
  3512. 0EE83 :: %TIME>TICKS
  3513. 0EE83 @  time to ticks (1:% -> 1:HXS)
  3514. 0EE92 @  Code: (2:HXS 0 (13 nibbles) 1:%date -> 1:HXS (ticks)
  3515. 0EEB0 @  MC: store R0(13) into existing stk1 HXS(13) and continue RPL
  3516. 0EED0 :: %RPT>HXS
  3517. 0EED0 @  (1:% -> 1:HXS)
  3518. 0EEDF CD DEEP%RPT>HXS
  3519. 0EEDF @  (2:HXS0(Ah) 1:% -> 1:HXS)
  3520. 0EF45 :: EXTALARM>INT
  3521. 0EF45 @  (4:action 3:%date 2:%time 1:%rpt -> {})
  3522. 0EF72 CD %RPT+HXSDATETIME
  3523. 0EF72 @  (3:HXS0(18h) 2:%rpt 1:HXSdatetime)
  3524. 0EFEE %  NS:%TICKSsec
  3525. 0EFEE @  8192        Ticks per second
  3526. 0F003 %  NS:%TICKSmin
  3527. 0F003 @  491520        Ticks per minute
  3528. 0F018 %  NS:%TICKShour
  3529. 0F018 @  29491200    Ticks per hour
  3530. 0F02D %  NS:%TICKSday
  3531. 0F02D @  707788800    Ticks per day
  3532. 0F042 %  NS:%TICKSweek
  3533. 0F042 @  4954521600    Ticks per week
  3534. 0F075 :: 1$>1UM?
  3535. 0F075 @  Is $ one Unit (1:$ -> 2:Unit 1:T / 1:F)
  3536. 0F075 @  Allowed are all units with prefixes, no combinations otherwise
  3537. 0F0ED :: %$>UMTRUE
  3538. 0F0ED @  (2:% 1:$ -> 2:Un 1:True)
  3539. 0F106 ::
  3540. 0F124 ::
  3541. 0F138 CD
  3542. 0F164 ::
  3543. 0F1A5 ::
  3544. 0F1C8 :: NS:NOTTYPEIDNT?
  3545. 0F1FF :: NS:2DRPSWPDRPTru
  3546. 0F1FF :: NS:XYZW>YT
  3547. 0F218 :: HP:UNIT>$
  3548. 0F218 @  (1:Unit -> 1:$)
  3549. 0F26D ::
  3550. 0F290 ::
  3551. 0F2B8 ::
  3552. 0F2DB ::
  3553. 0F2FE ::
  3554. 0F33A :: HP:UM>U
  3555. 0F33A @  Internal UNIT (2:% 1:Unit -> 1:Unit) (Replaces number part of Unit)
  3556. 0F34E :: HP:UMU>
  3557. 0F34E @  Internal OBJ-> (1:Unit -> 2:% 1:Unit) (Unit is normalized)
  3558. 0F371 :: HP:UMCONV
  3559. 0F371 @  Internal CONVERT Unit1 to units of Unit2 
  3560. 0F371 @  (2:Unit1/% 1:Unit2/% -> 1:Unit)
  3561. 0F3B2 ::
  3562. 0F3E4 :: HP:puretemp?
  3563. 0F3E4 @  Unit temperature^1 ? (1:HXS unitmask -> 1:T/F)
  3564. 0F407 ::
  3565. 0F41B :: HP:TempConv
  3566. 0F41B @  Temperature conv (7:Dest unit 6-3:%%factors&%%values 2&1:TempMASK)
  3567. 0F47F ::
  3568. 0F493 :: %%/+%%32
  3569. 0F493 @  << %%/ %%32 %%+ >>
  3570. 0F4C5 :: 
  3571. 0F4D4 :: SWAP-%%32%%*
  3572. 0F4D4 @  << SWAP %%32 %%- %%* >>
  3573. 0F510 ::
  3574. 0F547 %% NS:%%32
  3575. 0F561 :: CONVERTUVAL
  3576. 0F561 @  Convert and then strip units (Ex: 2:1_cm 1:1_m -> 2:100 1:1)
  3577. 0F584 :: HP:UM=?
  3578. 0F584 @  Internal == (2:%/Unit,1:%/Unit -> 1:%)
  3579. 0F598 :: HP:UM#?
  3580. 0F598 @  Internal <> (2:%/Unit,1:%/Unit)
  3581. 0F5AC :: HP:UM<?
  3582. 0F5AC @  Internal < (2:%/Unit,1:%/Unit)
  3583. 0F5C0 :: HP:UM>?
  3584. 0F5C0 @  Internal > (2:%/Unit,1:%/Unit)
  3585. 0F5D4 :: HP:UM<=?
  3586. 0F5D4 @  Internal <= (2:%/Unit,1:%/Unit)
  3587. 0F5E8 :: HP:UM>=?
  3588. 0F5E8 @  Internal >= (2:%/Unit,1:%/Unit)
  3589. 0F5FC :: HP:UMABS
  3590. 0F5FC @  Internal ABS (1:Unit -> 1:Unit)
  3591. 0F615 :: HP:UMCHS
  3592. 0F615 @  Internal NEG (1:Unit)
  3593. 0F62E :: HP:UMSIN
  3594. 0F62E @  Internal SIN (1:Unit -> 1:Unit)
  3595. 0F633 ::
  3596. 0F660 :: HP:UMCOS
  3597. 0F660 @  Internal COS (1:Unit -> 1:Unit)
  3598. 0F674 :: HP:UMTAN
  3599. 0F674 @  Internal TAN (1:Unit -> 1:Unit)
  3600. 0F688 %% HP:%%2PI
  3601. 0F6A2 :: HP:UM+
  3602. 0F6A2 @  Internal + (2:%/Unit 1:%/Unit)
  3603. 0F6A7 ::
  3604. 0F6D4 ::
  3605. 0F715 ::
  3606. 0F74C ::
  3607. 0F774 :: HP:UM-
  3608. 0F774 @  Internal - (2:%/Unit 1:%/Unit -> 1:Unit)
  3609. 0F792 :: HP:UM*
  3610. 0F792 @  Internal * (2:%/Unit 1:%/Unit -> 1:Unit)
  3611. 0F7B0 ::
  3612. 0F823 :: HP:UM/
  3613. 0F823 @  Internal / (2:%/Unit 1:%/Unit -> 1:Unit)
  3614. 0F841 :: NS:UMINV
  3615. 0F841 @  Internal INV (1:Unit -> 1:Unit)
  3616. 0F878 :: NS:UM^
  3617. 0F878 @  Internal ^ (2:%/Unit 1:%/Unit -> 1:Unit)
  3618. 0F887 ::
  3619. 0F8FA :: HP:UMXROOT
  3620. 0F8FA @  Internal XROOT (2:%/Unit 1:%/Unit -> 1:Unit)
  3621. 0F913 :: HP:UMSQ
  3622. 0F913 @  Internal SQ (1:Unit -> 1:Unit)
  3623. 0F92C :: HP:UMSQRT
  3624. 0F92C @  Internal sqrt (1:Unit -> 1:Unit)
  3625. 0F945 :: HP:UMSI
  3626. 0F945 @  Internal UBASE (1:Unit -> 1:Unit)
  3627. 0FA53 {} NS:SIUNITS{}
  3628. 0FA53 @  { 1_kg 1_m 1_A 1_s 1_K 1_cd 1_mol 1_? }
  3629. 0FA58 un NS:1_kg
  3630. 0FA62 @  'k' 0x6B (Character)
  3631. 0FA69 $  HP:tok_g
  3632. 0FA84 un NS:1_m
  3633. 0FA8E $  HP:tok_m
  3634. 0FAA4 un NS:1_A
  3635. 0FAAE $  NS:tok_A
  3636. 0FAC4 un NS:1_s
  3637. 0FACE $  HP:tok_s
  3638. 0FAE4 un NS:1_K
  3639. 0FAEE $  NS:tok_K
  3640. 0FB04 un NS:1_cd
  3641. 0FB0E $  "cd"
  3642. 0FB26 un NS:1_mol
  3643. 0FB30 $  "mol"
  3644. 0FB4A un NS:1_?
  3645. 0FB54 $  "?"
  3646. 0FB6F :: HP:UMMAX
  3647. 0FB6F @  Internal MAX (2:%/Unit 1:%/Unit -> 1:%/Unit)
  3648. 0FB8D :: HP:UMMIN
  3649. 0FB8D @  Internal MIN (2:%/Unit 1:%/Unit -> 1:%/Unit)
  3650. 0FBAB :: HP:UM%
  3651. 0FBAB @  Internal % (2:Unit 1:% -> 1:%)
  3652. 0FBEC ::
  3653. 0FC3C :: HP:UM%CH
  3654. 0FC3C @  Internal %CH (2:%/Unit 1:%/Unit -> 1:%)
  3655. 0FC41 ::
  3656. 0FC82 ::
  3657. 0FC87 ::
  3658. 0FCCD :: HP:UM%T
  3659. 0FCCD @  Internal %T (2:%/Unit 1:%/Unit -> 1:%)
  3660. 0FCE6 :: HP:UMSIGN
  3661. 0FCE6 @  Internal SIGN (1:Unit -> 1:%)
  3662. 0FCFA :: HP:UMIP
  3663. 0FCFA @  Internal IP (1:Unit -> 1:Unit)
  3664. 0FD0E :: HP:UMFP
  3665. 0FD0E @  Internal FP (1:Unit -> 1:Unit)
  3666. 0FD22 :: HP:UMFLOOR
  3667. 0FD22 @  Internal FLOOR (1:Unit -> 1:Unit)
  3668. 0FD36 :: HP:UMCEIL
  3669. 0FD36 @  Internal CEIL (1:Unit -> 1:Unit)
  3670. 0FD4A :: NS:UMOPER
  3671. 0FD4A @  Does 'REVAL on units real part, then makes it a unit again (1:Unit)
  3672. 0FD68 :: NS:UMRND
  3673. 0FD68 @  Internal RND (2:Unit 1:% -> 1:Unit)
  3674. 0FD8B :: HP:UMTRC
  3675. 0FD8B @  Internal TRNC (2:Unit 1:% -> 1:Unit)
  3676. 0FDAE ::
  3677. 0FDC2 ::
  3678. 0FDE5 :: UnitSplit>UnitMASK
  3679. 0FDE5 @  (1:Unit -> 4:Unit(same) 3:%%convfactor 2:%%sivalue 1:HXS unitmask)
  3680. 0FDE5 @  HXS:(NNh=_kg^NN NN00h=_m^NN NN0000h=_A^NN .._s .._K .._mol .._?)
  3681. 0FE08 ::
  3682. 0FE12 ::
  3683. 0FE44 :: HP:U>NCQ
  3684. 0FE44 @  Returns number,conversion factor and hex quantity string 
  3685. 0FE44 @  (1:Unit -> 3:%%n 2:%%cf 1:QHXS)
  3686. 0FE53 ::
  3687. 0FE8F ::
  3688. 0FF25 :: SWAPDROP%>%%HXS_0(16)
  3689. 0FF25 @  << SWAPDROP %>%% HXS_0(16) >>
  3690. 0FF48 ::
  3691. 0FFAC :: %>%%*,HXS_0(16)
  3692. 0FFAC @  << %>%% %%* HXS_0(16) >>
  3693. 0FFF2 ::
  3694. 10029 :: NS:4DROPTRUE
  3695. 1003D :: NS:DUPU>nbr
  3696. 1003D @  Dup, the U>nbr (UVAL)
  3697. 10047 :: HP:U>nbr
  3698. 10047 @  If Unit, then CARCOMP (UVAL), else nothing
  3699. 10065 :: HP:Unbr>U
  3700. 10065 @  (2:%2_Unit 1:%1 -> 1:%1_Unit) else (SWAPDROP)
  3701. 1008D :: UNIT>
  3702. 1008D @  Explodes unit or % (without % )
  3703. 100B5 :: UNIT>
  3704. 100B5 @  Explodes unit (without %)
  3705. 100D3 :: >UNIT
  3706. 100D3 @  Meta unit to unit
  3707. 10105 ::
  3708. 10141 P
  3709. 10199 ::
  3710. 101D0 ::
  3711. 10207 ::
  3712. 10248 :: NULL$SWAPROT#1+
  3713. 10261 :: SWAPDUPROLLSWAPDUPROLLDROP#1-
  3714. 10289 :: %1ROT#1+ROTFALSE
  3715. 102B1 :: XYZW>Z#3-
  3716. 102DE :: DROP1-DUPROLLdREALNcaseFALSE_DROP1-DUPROLLDROP1-DUPROLLFALSE
  3717. 10301 :: NS:DROP1-DUPROLL
  3718. 10315 :: DROP1-DUPROLLFALSE
  3719. 10329 ::
  3720. 10342 ::
  3721. 10379 ::
  3722. 1039C :: 4DROP#3+TRUE
  3723. 1045A :: DUPPICKOVERPICK3PICKPICK
  3724. 1047D ::
  3725. 10496 ::
  3726. 104D7 ::
  3727. 105EF ::
  3728. 10685 ::
  3729. 106E4 ::
  3730. 10720 :: um*SWAP#1+
  3731. 10743 ::
  3732. 10766 :: DROP#1-DUPROLLSWAP
  3733. 1077A :: SWAPDUPROLLSWAPumPSWAP#1+
  3734. 107A7 :: NS:#1-TRUE
  3735. 107D4 :: NS:DUPROLLDROP
  3736. 107ED ::
  3737. 10824 :: #+um*SWAP#1+
  3738. 10851 :: um*SWAP#2+
  3739. 10879 ::
  3740. 108A1 ::
  3741. 108D3 ::
  3742. 108FB ::
  3743. 10914 :: NDROPZERO1GETLAM?SIZEERR
  3744. 10964 ::
  3745. 1098C ::
  3746. 109E6 ::
  3747. 10A45 ::
  3748. 10A59 ::
  3749. 10AA4 ::
  3750. 10ADB :: NS:orot
  3751. 10ADB @  (Ob Meta1 Meta2 -> Meta1 Meta2 Ob)
  3752. 10AF9 :: NS:ounrot
  3753. 10AF9 @  (Meta1 Meta2 Ob -> Ob Meta1 Meta2)
  3754. 10B1C P
  3755. 10B5E {} HP:um*
  3756. 10B5E @  * (unit operator)
  3757. 10B68 {} HP:um/
  3758. 10B68 @  / (unit operator)
  3759. 10B72 {} HP:um^
  3760. 10B72 @  ^ (unit operator)
  3761. 10B7C {} HP:umP
  3762. 10B7C @  Character prefix (unit operator)
  3763. 10B86 {} HP:umEND
  3764. 10B86 @  _ (unit operator)
  3765. 10B90 ::
  3766. 10B9F CD
  3767. 10BD0 ::
  3768. 10BE4 CD
  3769. 10C15 ::
  3770. 10C42 :: COERCE::
  3771. 10C4C CD
  3772. 10CBF ::
  3773. 10CD8 :: #100SWAP#-UNCOERCE%CHS
  3774. 10D14 :: %CHSCOERCE#100SWAP#-
  3775. 10D4B P
  3776. 10D77 :: UNROT%%*SWAPTOTEMPOB
  3777. 10D90 :: NS:ROT%>%%UNROT
  3778. 10E34 h# NullUnitMask
  3779. 10E34 @  HXS 0 (16 nybbles for Unit calculations)
  3780. 10E4E h# TempMASK
  3781. 10E4E @  Temperature^1 mask (100000000h) (16 nybbles)
  3782. 10E68 %% HP:cfF
  3783. 10E68 @  5/9 (C <-> F conversion)
  3784. 10E82 %% HP:cfC
  3785. 10E82 @  1
  3786. 10E9C %% NS:%%KZERO
  3787. 10E9C @  273.15        (0C in Kelvins)
  3788. 10EB6 %% NS:%%RZERO
  3789. 10EB6 @  459.67        (0F in R)
  3790. 10ED0 %% %%0.0795774715459477
  3791. 10EFA P
  3792. 10F40 mc NS:GPErrjmpC
  3793. 10F4D @  MC XFER: invoke error code in A.A
  3794. 10F54 P  NS:SETNullChrERR
  3795. 10F54 @  Error: Can't Edit Null Char.
  3796. 10F64 P  NS:SETInvFuncERR
  3797. 10F64 @  Error: Invalid User Function
  3798. 10F74 P  NS:SETNoEQERR
  3799. 10F74 @  Error: No Current Equation
  3800. 10F80 mc HP:ErrjmpC
  3801. 10F80 @  Invoke error code in C.A
  3802. 10F86 P  NS:SETSyntaxERR
  3803. 10F86 @  Error: Invalid Syntax
  3804. 10F96 P  NS:SETPPARERR
  3805. 10F96 @  Error: Invalid PPAR
  3806. 10FA6 P  NS:SETNon%ERR
  3807. 10FA6 @  Error: Non-Real Result
  3808. 10FB6 P  NS:SETIsolateERR
  3809. 10FB6 @  Error: Unable to Isolate
  3810. 10FC6 P  NS:SETHALTERR
  3811. 10FC6 @  Error: HALT Not Allowed
  3812. 10FD6 P  KILL
  3813. 10FD6 @  Internal KILL
  3814. 10FE6 P  NS:SETLastStkERR
  3815. 10FE6 @  Error: LAST STACK Disabled
  3816. 10FF6 P  NS:SETLastCmdERR
  3817. 10FF6 @  Error: LAST CMD Disabled
  3818. 11006 P  NS:SETArgNumERR
  3819. 11006 @  Error: Wrong Argument Count
  3820. 11016 P  HP:SETCIRCERR
  3821. 11016 @  Error: Circular Reference
  3822. 11026 P  NS:SETDirArgERR
  3823. 11026 @  Error: Directory Not Allowed
  3824. 11036 P  NS:SETEmpDirERR
  3825. 11036 @  Error: Non-Empty Directory
  3826. 11046 P  NS:SETInvDefERR
  3827. 11046 @  Error: Invalid Definition
  3828. 11056 P  NS:SETMissLibERR
  3829. 11056 @  Error: Missing Library
  3830. 11066 P  NS:SETIdConflERR
  3831. 11066 @  Error: Name Conflict
  3832. 11076 P  CONT
  3833. 11076 @  Internal CONT
  3834. 11086 :: CONFIG001
  3835. 11086 @  Configuration code for library 001 (XLIB 1)
  3836. 110DB :: ClrUserKeys
  3837. 110DB @  Clear UserKeys and UserKeys.CRC
  3838. 110EF P  Called:2BE5D 3AA91
  3839. 11231 $  "1E"
  3840. 1123F P  Called:3AC4E
  3841. 112EC P  NS:ClrLastArgs
  3842. 112EC @  Clear Last Arguments (Executed if LASTARG flag is cleared)
  3843. 11320 P  NS:ClrPrgExecAnn
  3844. 1132D P  HP:SetAlphaAnn
  3845. 1133A P  HP:ClrAlphaAnn
  3846. 11347 P  HP:SetRightAnn
  3847. 11354 P  HP:ClrRightAnn
  3848. 11361 P  HP:SetLeftAnn
  3849. 1136E P  HP:ClrLeftAnn
  3850. 11387 P  Called:0665F 2D368
  3851. 113C2 P  GetStkSize
  3852. 113C2 @  get Stack Size (nibbles) as #
  3853. 113D2 P  StoStkSize
  3854. 113E2 P  StoCmdLine#
  3855. 113F2 P  GetCmdLine#
  3856. 113F2 @  Gets first line of the cmdline displayed ( -> 1:#) (Get_706F6)
  3857. 11402 P  IncCmdLine#
  3858. 11412 P  DecCmdLine#
  3859. 11422 P  Inc_706EC Called:42B98
  3860. 11432 P  Get_706E7 Called:0387D 07A8D 08258 3A09E 3A175 4258E 4270F 4274B 427B9 427C8 4291C
  3861. 11442 P  Clr_706E7 Called:425CA 428D6 42B93
  3862. 11452 P  Dec_706E7 Called:425A2
  3863. 11462 P  Inc_706E7 Called:42633 42656
  3864. 11472 P  Called:178E7 17900 17932
  3865. 11495 P  Called:172E8 178F1 1790A
  3866. 114B3 @  MC: push @C.A as #
  3867. 114C9 @  MC: save stk1 (#) into @C.A
  3868. 11501 P  NS:DelayedA?
  3869. 11501 @  Delayed alpha lock on?
  3870. 11511 P  NS:PrgmEntry?
  3871. 11511 @  if PRG mode -> True/False
  3872. 11533 P  HP:SetPrgmEntry
  3873. 11543 P  SetDelayedA
  3874. 1155C P  NS:ClrPrgmEntry
  3875. 1156C P  NS:ClrDelayedA
  3876. 11585 @  MC: continue RPL
  3877. 1158F P  HP:MAKEGROB
  3878. 1158F @  Internal BLANK (2:#x 1:#y -> 1:Grob)
  3879. 115B3 mc HP:makegrob
  3880. 1165A mc HP:w->W
  3881. 1165A @  Compute grob nibble
  3882. 11679 P  HP:GROB!
  3883. 11679 @  Store grob1 into grob2 (4:Grob1 3:Grob2 2:#col 1:#row)
  3884. 1192F P  HP:SUBGROB
  3885. 1192F @  (5:Grob 4:#x1 3:#y1 2:#x2 1:#y2 -> 1:SubGrob)
  3886. 11A6D P  HP:GROB!ZERO
  3887. 11A6D @  Clear a rectangular region (5:Grob 4:#x1 3:#y1 2:#x2 1:#y2 -> 1:Grob')
  3888. 11CCE P  Called:13B5B
  3889. 11CF3 P  HP:$>BIGGROB
  3890. 11CF3 @  Make grob in 5x9 font (1:$ -> 1:Grob)
  3891. 11D00 P  HP:$>GROB
  3892. 11D00 @  Make grob in 5x7 font (1:$ -> 1:Grob)
  3893. 11D8F mc HP:$5x7
  3894. 11F2E mc Charaddr
  3895. 11F2E @  Gets address in character-rom 
  3896. 11F2E @  ( a=char, sb clr = 5x8 font, sb set = 6x10 font -> c=addr)
  3897. 11F80 P  HP:$>grob
  3898. 11F80 @  Make grob in 3x7 font (1:$ -> 1:Grob)
  3899. 1200C P  HP:RIGHT$3x6
  3900. 1200C @  Make grob of #n rightmost rows (height 6) (2:$ 1:#n -> 2:T/F 1:Grob)
  3901. 1215E P  HP:CENTER$3x5
  3902. 1215E @  Place $ in grob (5:Grob 4:#x 3:#y 2:$ 1:#?? -> 1:Grob)
  3903. 122FF P  HP:INVGROB
  3904. 122FF @  Inverts grob (1:Grob -> 1:Grob')
  3905. 123C8 P  HP:BIGDISPN
  3906. 123C8 @  Disp in 5x9 font at #row (2:$ 1:#row) (Truncates or fills to 22 chars)
  3907. 123E5 P  HP:BIGDISPROW4
  3908. 123E5 @  Disp in 5x9 font at row 4 (1:$) (Truncates or fills to 22 chars)
  3909. 123F5 P  HP:BIGDISPROW3
  3910. 123F5 @  Disp in 5x9 font at row 3 (1:$) (Truncates or fills to 22 chars)
  3911. 12405 P  HP:BIGDISPROW2
  3912. 12405 @  Disp in 5x9 font at row 2 (1:$) (Truncates or fills to 22 chars)
  3913. 12415 P  HP:BIGDISPROW1
  3914. 12415 @  Disp in 5x9 font at row 1 (1:$) (Truncates or fills to 22 chars)
  3915. 12429 P  HP:DISPN
  3916. 12429 @  Disp in 5x7 font at #row (2:$ 1:#row) (Truncates or fills to 22 chars)
  3917. 1245B P  HP:DISPROW1
  3918. 1245B P  HP:DISP@01
  3919. 1245B @  Disp in 5x7 font at row 1 (1:$) (Truncates or fills to 22 chars)
  3920. 1246B P  HP:DISPROW2
  3921. 1246B P  HP:DISP@09
  3922. 1246B @  Disp in 5x7 font at row 2 (1:$) (Truncates or fills to 22 chars)
  3923. 1247B P  HP:DISPROW3
  3924. 1247B P  HP:DISP@17
  3925. 1247B @  Disp in 5x7 font at row 3 (1:$) (Truncates or fills to 22 chars)
  3926. 1248B P  HP:DISPROW4
  3927. 1248B P  HP:DISP@25
  3928. 1248B @  Disp in 5x7 font at row 4 (1:$) (Truncates or fills to 22 chars)
  3929. 1249B P  HP:DISPROW5
  3930. 1249B @  Disp in 5x7 font at row 5 (1:$) (Truncates or fills to 22 chars)
  3931. 124AB P  HP:DISPROW6
  3932. 124AB @  Disp in 5x7 font at row 6 (1:$) (Truncates or fills to 22 chars)
  3933. 124BB P  HP:DISPROW7
  3934. 124BB @  Disp in 5x7 font at row 7 (1:$) (Truncates or fills to 22 chars)
  3935. 124CB P  DISPROW8
  3936. 124CB @  Disp in 5x7 font at row 8 (1:$) (Truncates or fills to 22 chars)
  3937. 12635 P  HP:HARDBUFF
  3938. 12635 @  Get current display (-> 1:Grob)
  3939. 12645 P  HP:HARDBUFF2
  3940. 12645 @  Get menu grob (-> 1:Grob)
  3941. 12655 P  HP:ABUFF
  3942. 12655 @  Get stack grob (-> 1:Grob)
  3943. 12665 P  HP:GBUFF
  3944. 12665 @  Get graphic grob (PICT) (-> 1:Grob)
  3945. 12690 P  Called:none
  3946. 126DF :: HP:BLANKIT
  3947. 126DF @  Clear #rows starting at #starrow in HARDBUFF (2:#startrow 1:#rows ->)
  3948. 1270C :: HP:DISPSTATUS2
  3949. 1270C @  Display at status area lines (1:$ ->) (Only 1st newline changes line)
  3950. 12725 :: HP:DISPROW1*
  3951. 12725 @  Display at row1 in HARDBUFF window (1:$ ->)
  3952. 12748 :: HP:DISPROW2*
  3953. 12748 @  Display at row2 in HARDBUFF window (1:$ ->)
  3954. 12770 :: HP:COERCE$22
  3955. 12770 @  If len($) > 22 chars, truncates it to 21 chars & "..." (1:$ -> 1:$')
  3956. 127A7 :: HP:SEP$NL
  3957. 127A7 @  Split $ at first <LF> (1:$ -> 2:$end 1:$start / 2:"" 1:$)
  3958. 127CA :: NS:DROPDUPLEN$1+
  3959. 12815 :: $>grobDUPg2GROB!
  3960. 12815 @  Sto $ in grob2 (4:grob2 3:#row 2:#col 1:$ -> 2:grob2 1:grob')
  3961. 12829 :: DUPg2GROB!
  3962. 12829 @  Sto grob1 in grob2 (4:grob2 3:#row 2:#col 1:grob1 -> 2:grob2 1:grob')
  3963. 12847 P  Called:01453 3A206
  3964. 128B0 :: HP:XYGROBDISP
  3965. 128B0 @  Stores grob into HARDBUFF (3:#row 2:#col 1:Grob ->) 
  3966. 128B0 @  Enlarges HARDBUFF if grob exceeds bounds
  3967. 128BA CD NS:CKYHARDBUFF
  3968. 128BA @  Enlarges HARDBUFF ydim if storing grob would exceed bounds
  3969. 128BA @  (3:Grob 2:#row 1:#col -> 3:Grob 2:#row 1:#col)
  3970. 128E3 CD NS:CKXHARDBUFF
  3971. 128E3 @  Enlarges HARDBUFF xdim if storing grob would exceed bounds
  3972. 128E3 @  (3:Grob 2:#row 1:#col -> 3:Grob 2:#row 1:#col)
  3973. 12964 :: NS:HEIGHTENHBUFF
  3974. 12964 @  Heightens HARDBUFF with #rows (1:#rows ->)
  3975. 1297D :: NS:BROADENHBUFF
  3976. 1297D @  Broadens HARDBUFF with #cols (1:#cols ->)
  3977. 12996 P  Called:39C11 43B4E
  3978. 12996 @  (...? 1:#) ?? (HARDBUFF operation)
  3979. 12A0D P  Called:48184
  3980. 12A0D @  (?? -> ??.. 1:$) (HARDBUFF operation)
  3981. 12A4A P  Called:43A81
  3982. 12A4A @  (..? 1:# ->)  (HARDBUFF operation)
  3983. 12AF6 P  Called:480F8
  3984. 12AF6 @  (..? -> ..? 1:$) (HARDBUFF operation)
  3985. 12B58 :: NS:HBUFFDIMw
  3986. 12B58 @  Get HARDBUFF width (-> 1:#width)
  3987. 12B6C :: NS:HBUFFDIMh
  3988. 12B6C @  Get HARDBUFF height (-> 1:#height)
  3989. 12B85 :: HP:FlashMsg
  3990. 12B85 @  Flashes message on status area (1:$ ->) (Doesn't beep)
  3991. 12BB7 P  NS:BROADENGROB
  3992. 12BB7 @  Broadens graphic or text GROB with #columns (2:GDISP or ABUFF 1:#col)
  3993. 12DD1 P  HP:HEIGHTENGROB
  3994. 12DD1 @  Heigtens graphic or text GROB with #rows (2:GDISP or ABUFF 1:rows)
  3995. 12E89 P  NS:GROB>GDISPon
  3996. 12E89 @  Stores grob in GBUFF (1:grob ->) (Scroll mode on)
  3997. 12F0A P  NS:GROB>GDISPoff
  3998. 12F0A @  Stores grob in GBUFF (1:grob ->) (Scroll mode off)
  3999. 12F94 :: HP:GROB>GDISP
  4000. 12F94 @  Stores grob to GBUFF (1:grob ->)
  4001. 13043 P  KILLSOMEGROB
  4002. 13043 @  Same as KILLGDISP, but with @70560 instead of @70565 (GDISP)
  4003. 13061 P  HP:KILLGDISP
  4004. 13061 @  Purges PICT
  4005. 130AC :: HP:RECLAIMDISP
  4006. 130AC @  Choose TEXT grob, clear text display, default size (131 56)
  4007. 130CA P  NS:RSZABUFF
  4008. 130CA @  Resize ABUFF to std size (131x56)
  4009. 13135 P  HP:TOGDISP
  4010. 13135 @  Choose graphic display (GBUFF)
  4011. 1314D P  HP:TOADISP
  4012. 1314D @  Choose text display (ABUFF)
  4013. 13167 P  NS:ScrollMode?
  4014. 13167 @  Is Scroll mode on? (-> 1:T/F)
  4015. 131C8 P  NS:ScrollUp
  4016. 13220 P  NS:ScrollDown
  4017. 134AE P  HP:CLEARVDISP
  4018. 134AE @  Clears HARDBUFF
  4019. 134E4 P  NS:ScrollLeft
  4020. 1357F P  NS:ScrollRight
  4021. 13679 P  NS:ScrollJump
  4022. 13679 @  JUMP GROB to (2:#x 1:#y)
  4023. 13695 P  NS:REDISPABUFF
  4024. 13695 @  Put window at #0 #0 coords
  4025. 137B6 P  HP:WINDOWCORNER
  4026. 137B6 @  Push window coords (-> 2:#x 1:#y) , zeros if not scrolled
  4027. 137DC mc HP:corner
  4028. 1380F P  HP:PIXOFF3
  4029. 1380F @  Clear pixel in graph grob (2:#x 1:#y ->)
  4030. 13825 P  HP:PIXON3
  4031. 13825 @  Set pixel in graph grob (2:#x 1:#y ->)
  4032. 1383B P  HP:PIXOFF
  4033. 1383B @  Clear pixel in text grob (2:#x 1:#y ->)
  4034. 1384A P  HP:PIXON
  4035. 1384A @  Set pixel in text grob (2:#x 1:#y ->)
  4036. 13986 P  HP:PIXON?3
  4037. 13986 @  Is graph grob pixel on? (2:#x 1:#y -> 1:T/F)
  4038. 13992 P  HP:PIXON?
  4039. 13992 @  Is text grob pixel on? (2:#x 1:#y -> 1:T/F)
  4040. 139E7 P  Called:39D25 40B9C 48C10
  4041. 139E7 @  (3:# 2:# 1:# -> ?
  4042. 13B41 P  C=NULL$JUMP@A
  4043. 13B51 :: Called:0DBE1 42976 42B4D
  4044. 13B9C ::
  4045. 13BB5 P  Called:13BA1
  4046. 13BF1 P  Called:13BA6
  4047. 13CB0 :: Called:42186 421B8
  4048. 13CBF ::
  4049. 13CE2 ::
  4050. 13CFB ::
  4051. 13D14 ::
  4052. 13D28 P  Called:13CF1 427FA 42999 429C1 42B52
  4053. 13D55 P  Called:13D0A 40922 427E1 42944 42B43 55E84 55ECF
  4054. 13D8C gr HP:CURSOR1
  4055. 13D8C @  insert cursor (Graphic 6 x 10)
  4056. 13DB4 gr HP:CURSOR2
  4057. 13DB4 @  overstrike cursor (Graphic 6 x 10)
  4058. 13E05 P  Set7074E=8?
  4059. 13E22 P  Set70710
  4060. 13E2E P  Clr70710
  4061. 13E53 P  Test7074E
  4062. 13E63 P  Test70710
  4063. 13E85 P  Get7070E
  4064. 13E9E P  Sto7070E
  4065. 13EBC P  Clr7070E
  4066. 13ED2 P  Inc7070E
  4067. 13EF1 P  Get70704
  4068. 13EF1 @  Gets the number of the char on cmdline??? (-> 1#) (70704)
  4069. 13F01 P  Inc70704
  4070. 13F11 P  Dec70704
  4071. 13F29 P  Sto70704
  4072. 13F47 P  GetCmdLPosit#
  4073. 13F47 @  Get position (line) of the cursor in the command-line (-> 1:#)
  4074. 13F69 P  IncCmdLPosit#
  4075. 13F7F P  DecCmdLPosit#
  4076. 13F9B P  ClrCmdLPosit#
  4077. 13FB0 P  Called:4252A (Handles CmdLPosit# and @706EC)
  4078. 13FE5 P  SAVEERRN
  4079. 13FE5 @  Saves last Error code (LastError# to SavedLastError#)
  4080. 1400E P  ERR0
  4081. 1400E @  Internal ERR0 (Clears SavedLastError#)
  4082. 14039 P  ERRN#
  4083. 14039 @  ERRN (Returns SavedLastError#) ( -> 1:#error)
  4084. 1404C :: ERRN
  4085. 1404C @  Internal ERRN (Returns SavedLastError#) ( -> 1:HXS)
  4086. 14065 :: ERRM
  4087. 14065 @  Internal ERRM (Returns SavedLastError# message) ( -> 1:$)
  4088. 14088 :: HP:DO>STR
  4089. 14088 @  Internal ->STR (Topmost) (1:Any -> 1:$)
  4090. 14088 @  :: ZERO !DcompWidth DTYPECSTR? ?SEMI >STR ;
  4091. 140AB :: HP:DODISP
  4092. 140AB @  Internal DISP (2:Any 1:%)
  4093. 140F1 :: HP:DOCHR
  4094. 140F1 @  Internal CHR (1:% -> 1:$)
  4095. 1410F :: DONUM
  4096. 1410F @  Internal NUM (1:$ -> %) (Takes first char of $, then NUM)
  4097. 14137 :: HP:DOSTR>
  4098. 14137 @  Internal STR-> (Topmost) (1:$) (Errors if parsing failed, else EVALs)
  4099. 14137 @  :: palparse case EVAL 2DROP SETSyntaxERR ;
  4100. 1415A :: HP:DOBEEP
  4101. 1415A @  Internal BEEP (2:%msec 1:%Hz)
  4102. 1415F CD *%1000
  4103. 141B2 P  HP:setbeep
  4104. 141B2 @  Internal BEEP (2:#msec 1:#Hz) (#Hz is 1000 * %Hz in DOBEEP)
  4105. 141E5 P  HP:ERRBEEP
  4106. 1420A P  NS:$>$?
  4107. 1420A @  Internal > (2:$ 1:$ -> 1:1/0)
  4108. 142A6 :: NS:$<$?
  4109. 142A6 @  Internal < (2:$ 1:$ -> 1:1/0)
  4110. 142BA :: NS:$>=$?
  4111. 142BA @  Internal >= (2:$ 1:$ -> 1:1/0)
  4112. 142E2 :: NS:$<=$?
  4113. 142E2 @  Internal <= (2:$ 1:$ -> 1:1/0)
  4114. 142FB :: NS:FREEZE%
  4115. 142FB @  Internal FREEZE (1:%) (Does SetDA?Temp's)
  4116. 14314 :: NS:DROPSEVEN
  4117. 14378 :: NS:HALT
  4118. 14378 @  Internal HALT (If NOT haltOK? then error) (DBUGs ob in return stack)
  4119. 14396 {} LAM{'halt}
  4120. 1439B l' NS:LAM_'halt
  4121. 143BB :: exechalt
  4122. 143BB @  Forces halt, no error protection, saves stack if LastStkOn? 
  4123. 1444C :: ResHaltLstStkOnABND
  4124. 1444C @  Resumes & stores LastStkOn flag from LAM_'halt & ABND
  4125. 1446F :: NS:haltOK?
  4126. 1446F @  Checks if halt is allowed (AppSuspOK? and LAM_'nohalt) (-> 1:T/F)
  4127. 14483 l' HP:nohalt
  4128. 14483 l' NS:LAM_'nohalt
  4129. 144AC :: NS:DoNEXTkey
  4130. 144AC @  The program executed when NEXT is pressed in PRGDBUG menu
  4131. 144DE :: NS:DoSSTdownkey
  4132. 144DE @  The program executed when SSTdown is pressed
  4133. 14506 :: NS:DoSSTkey
  4134. 14506 @  The program executed when SST is pressed
  4135. 14533 :: DODBUGprg
  4136. 14533 @  #2 = NEXT, #1 = SSTdown, #0 = DOSST (1:#n)
  4137. 14565 CD PrepDBUG
  4138. 145BA CD DBUGSEMIhandle
  4139. 145BA @  Returns True if end of whole program reached
  4140. 14613 :: DBUGObhandle
  4141. 14640 :: DBUGERRTRAPObERRhandle
  4142. 14654 :: DBUGObERRhandle
  4143. 146C7 go ??
  4144. 1470D :: DBUGObhandle
  4145. 14762 :: DBUG0Obhandle
  4146. 147C1 :: DBUG1Obhandle
  4147. 147E4 :: DBUGIDhandle
  4148. 1482A :: sstDISPKILL
  4149. 1483E :: DBUG_IFERR
  4150. 14843 :: DUPPALPTRDCMPDROP
  4151. 14843 @  (Ob -> "XLIBNAME" / Ob)
  4152. 148C0 :: 'Raddtail$
  4153. 148C0 @  Recalls next from prev. converts to string and adds to tail (with
  4154. 148C0 @  space) (1:$ -> 2:Ob 1:$+" "+$Ob)
  4155. 148F2 :: DBUG_WHILE
  4156. 148F2 :: DBUG_DO
  4157. 1490B :: DBUG_ENDDO
  4158. 14915 ::
  4159. 1494C :: DBUG_REPEAT
  4160. 1499C :: DBUG_WHILEEND
  4161. 149BF :: DBUG_RPN->
  4162. 149C4 :: DUPPALPTRDCMPDROPONESWAP
  4163. 149C4 @  (Ob -> #1 "XLIBNAME" / #1 Ob)
  4164. 14A55 :: DBUG_ALG->
  4165. 14AE6 :: DBUG_START
  4166. 14B13 :: DBUG_FOR
  4167. 14B72 :: DBUG_NEXT
  4168. 14B72 :: DBUG_STEP
  4169. 14B81 ::
  4170. 14BB3 :: DBUG_'
  4171. 14BE5 :: DBUG_HALT
  4172. 14BFE :: DBUG_PROMPT
  4173. 14C17 :: HP:sstDISP
  4174. 14C17 @  Displays $ in status area (" " added in front) and freezes st. area
  4175. 14C30 :: DBG_THEN
  4176. 14C71 :: DBG_ELSE
  4177. 14C99 :: DBUG_CASETHEN
  4178. 14CA8 :: COLA2next>RGsstFIN
  4179. 14CA8 @  Does a seco of next 2 obs, returns & does GsstFIN
  4180. 14CDF :: DBUG_>>ABND
  4181. 14D02 :: DBUG_>>
  4182. 14D1B P  DBUGENDPRG
  4183. 14D6E :: 3RDROPERRTRAPNOP
  4184. 14D8C :: AppspcDISPSTATUS2Temp
  4185. 14D8C @  Adds space in front of $, displays it in status area and freezes it
  4186. 14DAA ::
  4187. 14DFA :: DBUGstkEVAL&DISPGsstFIN
  4188. 14DFA @  Displays and evals stk1, then continues DBUG
  4189. 14E1D :: :: NOP ;
  4190. 14E2C :: DBUG_SILENT'
  4191. 14E2C @  DROP, display and eval next in return stack, continue DBUG
  4192. 14E54 :: HALTerrhandle
  4193. 14E6D P  HALTSAVELAMed?
  4194. 14EA5 P  HP:RDUP
  4195. 14EA5 @  DUPs return stack
  4196. 14EEC P  DBUGRDEPTH
  4197. 14EEC @  Gives the increase in return stack depth after starting DBUG
  4198. 14F2A P  DBUGRROL?? (# ->?) Called:146D1 146E5 146EA 1496F 14DCD 14DD2
  4199. 14F8C P  DBUGRDROP?? (# ->?) Called:1474E 1483D 1497E 149B0
  4200. 14FC3 P  DBUGCREATELOOP???(Uses TEMPENV) Called:14A46 14AFF 14B5E
  4201. 15007 :: HP:DO%EXIT
  4202. 15007 @  Internal DOERR (1:%) (Does AtUserStack)
  4203. 1501B :: NS:DOHXSEXIT
  4204. 1501B @  Internal DOERR (1:HXS) (Does AtUserStack)
  4205. 1502F :: HP:DO#EXIT
  4206. 1502F @  Internal DOERR (1:#) (Does AtUserStack)
  4207. 15048 :: HP:DO$EXIT
  4208. 15048 @  Internal DOERR (1:$) (Does AtUserStack)
  4209. 1506B :: LAM'haltEXISTS?
  4210. 1506B @  if ''halt' (LAM) exists -> True/False
  4211. 1508E :: NS:DoDBUGkey
  4212. 1508E @  The program executed when DBUG is pressed
  4213. 150C0 :: DBUGseco
  4214. 150E3 :: DBUGuserseco
  4215. 15106 :: RSKIP::
  4216. 15106 @  :: RSWAP RSKIP RSWAP ;
  4217. 1512E :: DBUGname
  4218. 15156 :: CKOb>SecoLnwDecomp$
  4219. 1515B :: NS:CKOb>Seco
  4220. 1515B @  If stk1 not seco then Ob>Seco (1:Any)
  4221. 15174 :: LnwDecomp$
  4222. 1518D P  HP:GsstFIN
  4223. 151A6 :: HP:SolvMenuInit
  4224. 151A6 @  Sets keypress programs, labeldef and review programs & calls 3BB19
  4225. 151A6 @  (Sets SolvMenuNSprg,..LSprg,..RSprg,..LabelDefprg,..ReviewKeyprg)
  4226. 15200 :: NS:SolverMenuInit
  4227. 15223 ::
  4228. 15232 :: CK{Ob{Any}}
  4229. 15232 @  Checks for { Ob { Anything } } (-> Error or { Anything }
  4230. 15273 ::
  4231. 152D2 :: MkNullMenuKeyCOMP
  4232. 152D2 @  Add #n times NullMenuKey to tail of composite (2:Comp 1:#n)
  4233. 152FF :: HP:EqList?
  4234. 152FF @  Is {} a valid EQ ? (1:{} -> T/F)
  4235. 152FF @  Accepts: { Any NOT{} Any Any....} and { Any }
  4236. 1532C {} NXEQmenu
  4237. 15331 $  "NXEQ"
  4238. 15343 :: NXEQmenuprg
  4239. 15366 :: {ID}CKIDValidForSolv
  4240. 15366 @  Does CKIDValidForSolv for CARCOMP (1:{ID ...} -> 1:contents / Error)
  4241. 15389 :: CKIDValidForSolv
  4242. 15389 @  (1:ID -> 1:contents if valid for solve, 1:ID & error if not valid)
  4243. 15389 @  Other than ID does nothing
  4244. 153C0 :: SolvMenuReviewKeyprg
  4245. 153C0 @  Displays current dir page ids & contents (CAT style)
  4246. 153D9 :: SolvMenuReviewVarsprg
  4247. 153D9 @  Displays current dir page (CAT style, but no EQ nor blanking)
  4248. 153FC :: HP:DispVarsUtil
  4249. 153FC @  If ID then display it & contents at row INDEX@+#1, else drop
  4250. 15410 :: 60EJstGETTHEMESG
  4251. 15424 :: TAGNAME>$
  4252. 15424 @  Tags $ with ID/LAM (8 first chars only) as string (2:NAME 1:$ -> $)
  4253. 15424 @  Example (2:ID_CDE 1:"ABC" -> "CDE: ABC")
  4254. 15442 $  ": "
  4255. 1548C :: SolvMenuLabelDefprg
  4256. 1548C @  For ID & NULL$: MakeInvLabel Grob>Menu,  Else: >Menu
  4257. 154CD :: SolvMenuNSprg
  4258. 154CD @  Handles pressed (no shift) SOLVE menu key (1:Ob)
  4259. 154FA :: NameKeyNSprg
  4260. 154FA @  Prg to handle ID in SOLVE menu
  4261. 1552C :: IDKeepUnit
  4262. 1552C @  Recall ID contents, then KeepUnit (If no contents, DROP) (1:ID)
  4263. 1553B :: HP:KeepUnit
  4264. 1553B @  (3:% 2:Any 1:Unit -> 2:%_Unit 1:Ob) else DROP
  4265. 1559A :: SolvMenuRSprg
  4266. 1559A @  Does StdMenuKeyRS or DoNameKeyRS depending on stk1 (other/ID)
  4267. 155B3 :: SolvMenuLSprg
  4268. 155E0 :: NameKeyLSprg
  4269. 155EF {} LAM{'nohalt}
  4270. 1563A :: ABNDNOLASTWDDO#EXIT
  4271. 1568F :: HP:ALGeq?
  4272. 1568F @  Is stk1 an equation? (1:SYMB -> 1:T/F) 
  4273. 15694 CD NS:DUPTYPECOMP?
  4274. 15694 @  Only seco, list and symb give True
  4275. 15717 :: HP:DOSTOE
  4276. 15717 @  Internal STEQ (1:Any) (Doesn't strip tags like xSTEQ)
  4277. 1572B :: HP:DORCLE
  4278. 1572B @  Internal RCEQ (Error if not present) (-> 1:EQ contents)
  4279. 15744 :: HP:EQUATION
  4280. 15744 :: RCEQ?
  4281. 15744 @  Internal RCEQ -> Contents,True/False
  4282. 15758 :: NS:'ID_EQ
  4283. 15758 @  unevaluated 'EQ' (ID)
  4284. 1576C g' NS:ID_EQ
  4285. 15777 :: NS:'NULLID
  4286. 15777 @  unevaluated '' (ID)
  4287. 15781 g' NS:NULLID
  4288. 1578D :: HP:CRUNCH
  4289. 1578D @  Internal ->NUM ( :: CK1 STRIPTAGS CRUNCH ; )
  4290. 157B0 :: CRUNCHClrNumFlag
  4291. 157B0 @  Doesn't set NumFlag before ->NUM, but clears it after
  4292. 157BA ::
  4293. 157E2 :: CRUNCHSetNumFlag
  4294. 157E2 @  Doesn't set NumFlag before ->NUM, but sets it after
  4295. 157EC ::
  4296. 15814 :: ClrNumFlagERRJMP
  4297. 15828 :: SetNumFlagERRJMP
  4298. 1583C :: HP:EVALCRUNCH
  4299. 1583C @  EVAL & if depth <> 0 then CRUNCH
  4300. 1585A {} EXPR=key
  4301. 1585F $  "EXPR="
  4302. 1587D :: EXPR=keyprg
  4303. 1587D @  Does the same as pressing EXPR= (-> 1:EXPR:.. / 2:LEFT:.....)
  4304. 1589B :: ALGeq>EXPR=
  4305. 1589B @  Divides ALG into left & right parts & tags (1:ALG)
  4306. 158B9 $  "LEFT"
  4307. 158E4 $  "RIGHT"
  4308. 15911 $  "EXPR"
  4309. 1592D :: HP:CK1NoBlame
  4310. 1592D @  Clear current command and verify DEPTH >= 1
  4311. 1592D @  :: 0LASTOWDOB! CK1NOLASTWD ;
  4312. 15941 :: HP:CRUNCHNoBlam
  4313. 15941 @  == :: EVALCRUNCH CK1NoBlame ;
  4314. 15955 :: #13!DcompWidth1stkdecomp$wSWAP#>%>$
  4315. 1596E :: !DcompWidth1stkdecomp$wSWAP#>%>$
  4316. 15978 :: HP:1stkdecomp$w
  4317. 15978 @  Decompile into $ in print format (1:Obj -> 1:$)
  4318. 159AF :: ClrStkDisp$Fmt_Clr_7068D:2_ERRJMP
  4319. 159B4 :: ClrStkDisp$Fmt_Clr_7068D:2
  4320. 159D2 :: #13!DcompWidthstkdecomp$w
  4321. 159EB P  HP:stkdecomp$w
  4322. 159FA :: #13!DcompWidth
  4323. 15A0E :: HP:EDITDECOMP$
  4324. 15A0E @  Decompile obj for editing (1:Obj -> 1:$)
  4325. 15A40 :: HP:ederr
  4326. 15A40 @  Handles error if edit decompiling failed ( :: rstfmt1 ERRJMP ; )
  4327. 15A54 P  rstfmt2
  4328. 15A60 P  HP:rstfmt1
  4329. 15A8B P  HP:savefmt1
  4330. 15A97 P  savefmt2
  4331. 15B13 :: HP:DECOMP$
  4332. 15B13 @  Decompile obj for stack display (1:Any -> 1:$)
  4333. 15B31 P  NS:>STR
  4334. 15B31 @  Deep internal ->STR (1:Any -> 1:$)
  4335. 15B3D P  NS:>STREDIT
  4336. 15B3D @  Deep internal ->STR (1:Any -> 1:$) (Edit format)
  4337. 15B4C rf r_DOREAL
  4338. 15B51 rf r_a%>$,
  4339. 15B56 rf r_a%>$
  4340. 15B5B rf r_DOIDNT
  4341. 15B60 rf r_PrID>$
  4342. 15B65 rf r_EdID>$
  4343. 15B6A rf r_DOARRY
  4344. 15B6F rf r_PrCOMP>$
  4345. 15B74 rf r_EdCOMP>$
  4346. 15B79 rf r_DOLIST
  4347. 15B7E rf r_PrCOMP>$
  4348. 15B83 rf r_EdCOMP>$
  4349. 15B88 rf r_DOCOL
  4350. 15B8D rf r_PrCOMP>$
  4351. 15B92 rf r_EdCOMP>$
  4352. 15B97 rf r_DOCSTR
  4353. 15B9C rf r_Pr$>$
  4354. 15BA1 rf r_Ed$>$
  4355. 15BA6 rf r_DOCMP
  4356. 15BAB rf r_PrEdC%>$
  4357. 15BB0 rf r_PrEdC%>$
  4358. 15BB5 rf r_DOSYMB
  4359. 15BBA rf r_PrUnSymb>$
  4360. 15BBF rf r_EdCOMP>$
  4361. 15BC4 rf r_DOLAM
  4362. 15BC9 rf r_PrID>$
  4363. 15BCE rf r_EdID>$
  4364. 15BD3 rf r_DOHXS
  4365. 15BD8 rf r_HXS>$
  4366. 15BDD rf r_EdHXS>$
  4367. 15BE2 rf r_DOEXT
  4368. 15BE7 rf r_PrUnSymb>$
  4369. 15BEC rf r_EdCOMP>$
  4370. 15BF1 rf r_DOTAG
  4371. 15BF6 rf r_PrCOMP>$
  4372. 15BFB rf r_EdCOMP>$
  4373. 15C00 rf r_DODIR
  4374. 15C05 rf r_PrCOMP>$
  4375. 15C0A rf r_EdCOMP>$
  4376. 15C0F rf r_DOLIB
  4377. 15C14 rf r_LIB>$
  4378. 15C19 rf r_LIB>$
  4379. 15C1E rf r_DOBAK
  4380. 15C23 rf r_BAK>$
  4381. 15C28 rf r_BAK>$
  4382. 15C2D rf r_DOGROB
  4383. 15C32 rf r_PrGROB>$
  4384. 15C37 rf r_EdGROB>$
  4385. 15C3C rf r_DOROMP
  4386. 15C41 rf r_ROMPTR>$
  4387. 15C46 rf r_ROMPTR>$
  4388. 15C4B rf r_DOBINT
  4389. 15C50 rf r_PrEd#>$
  4390. 15C55 rf r_PrEd#>$
  4391. 15C5A rf r_00000
  4392. 15C5F ml RDsptch>$
  4393. 15C5F @  Converts stk1 to a string using dispatch data in RSTK
  4394. 15C5F @  See >STR and >STREDIT for examples of how to use
  4395. 15C5F @  Last pointer must be 00000 (Which leads to Type$)
  4396. 15CBB :: NS:Type$    
  4397. 15CBB @  Get object type description (1:Any-> 1:$) (Ex.1:%1 -> 1:"Real Number")
  4398. 15CBB @  Gives "Complex Array", if array type isn't real (feature? :)
  4399. 15CCF :: NS:Type$+
  4400. 15CCF @  Get object type and concatenate (1:$ 1:Any -> 1:$)
  4401. 15D06 :: PrEd#>$
  4402. 15D06 @  (1:# -> 1:$) For stack display & editing
  4403. 15D38 :: NS:LIB>$
  4404. 15D38 @  (1:LIB -> 1:$) For stack display & editing
  4405. 15D6F #  NS:##117
  4406. 15D79 :: NS:!!insertMesg#
  4407. 15D79 @  (2:$ 1:# -> 1:$mesg+" "+$)
  4408. 15D97 :: NS:BAK>$
  4409. 15D97 @  (1:BAK -> 1:$) For stack display & editing
  4410. 15DAB #  NS:##118
  4411. 15DBF :: APPGROBDIMS$
  4412. 15DBF @  Add grob dims to string (2:Grob 1:$ -> "ydim$xdim" )
  4413. 15DF1 :: NS:PrGROB>$
  4414. 15DF1 @  (1:GROB -> 1:$) For stack display
  4415. 15DF6 $  " x "
  4416. 15E0B #  <112h>
  4417. 15E1F :: NS:EdGROB>$
  4418. 15E1F @  (1:GROB -> 1:$) For editing (Uses PrGROB>$ if StkDisp$Fmt?)
  4419. 15E47 $  "GROB "
  4420. 15E83 :: NS:STR>NIBS
  4421. 15E83 @  Makes a nibble string (1:HXS/$ -> 1:NIBS$)
  4422. 15EAB :: !!insert&len
  4423. 15EAB @  (2:$2 1:$1 -> 1:"$1len($2) $2") (Ex. 2:"ABC" 1:"CDE" -> 1:"CDE3 ABC")
  4424. 15ED8 :: Ed$>$
  4425. 15ED8 @  (1:$ -> 1:$) (For editing. If StkDisp$Fmt? then uses Pr$>$)
  4426. 15EF6 :: ONEPOS$
  4427. 15EF6 :: ONEPOSCHR
  4428. 15F23 $  "C$ "
  4429. 15F3D :: Pr$>$
  4430. 15F3D @  (1:$ -> 1:$) (For stack display)
  4431. 15F83 :: EdHXS>$
  4432. 15F83 @  (1:HXS -> 1:$) (For editing. If StkDisp$Fmt? then HXS>$)
  4433. 15FB5 $  "C# "
  4434. 15FCF P  HXS>ASCII$
  4435. 15FCF @  HXS to ASCII$ (2:HXS 1:$ (length must be correct) -> 1:$ )
  4436. 1605F P  NS:QUOTESin$
  4437. 1605F @  (1:$ -> 1:"'$'")
  4438. 1606C P  NS:DQUOTESin$
  4439. 1606C @  (1:$ -> 1:""$"")
  4440. 16075 mc around$
  4441. 16075 @  Puts C.p2 (Char) around $ (1:$ -> 1:$) & continues RPL
  4442. 160D1 :: PrID>$
  4443. 160D1 @  Differs from ID>$ by adding quotes too (1:ID/LAM -> 1:$)
  4444. 160E5 P  EdID>$
  4445. 160E5 @  (1:ID/LAM -> 1:$) If ST.4 clear ID>$ else PrID>$ (quotes too)
  4446. 16103 :: PrUnSymb>$
  4447. 16103 @  (1:EXT/SYMB -> 1:$) For stack display
  4448. 1613F :: HP:NULL$TEMP
  4449. 1613F @  Null $ "" (RAM based)
  4450. 16153 :: PALPTRDCMPNOT?Type$
  4451. 16153 @  (Ob -> "XLIBNAME" / "Type")
  4452. 1616C :: NS:ROMPTR>$
  4453. 1616C @  Returns XLIB name or "XLIB % %" (1:XLIB -> 1:$)
  4454. 16180 :: NS:SWAPDROPID>$
  4455. 161B2 $  "XLIB "
  4456. 161D0 :: NS:EdCOMP>$
  4457. 161D0 @  (1:DIR/seco/TAGGED/[]/{}/Unit/SYMB -> 1:$) (For editing)
  4458. 1622A :: NS:PrCOMP>$
  4459. 1622A @  (1:DIR/seco/TAGGED/[]/{} -> 1:$) (Like what's on stack)
  4460. 162AC P  HP:a%>$,
  4461. 162AC @  Convert % to $ using current display mode with no commas (FIX mode)
  4462. 162B8 P  HP:a%>$
  4463. 162B8 @  Convert % to $ using current display mode (1:% -> 1:$)
  4464. 16671 mc HP:Shrink$
  4465. 166E3 P  HP:DOFIX
  4466. 166E3 @  Internal FIX (1:# ->)
  4467. 166EF P  HP:DOSCI
  4468. 166EF @  Internal SCI (1:# ->)
  4469. 166FB P  HP:DOENG
  4470. 166FB @  Internal ENG (1:# ->)
  4471. 16707 P  HP:DOSTD
  4472. 16707 @  Internal STD
  4473. 167BF :: HP:DPRADIX?
  4474. 167BF @  Flag -51 clear? (-> 1:T/F)
  4475. 167D8 P  HP:#:>$
  4476. 167D8 @  # to decimal $ & ": " (1:# -> $)
  4477. 167E4 P  HP:#>$
  4478. 167E4 @  # to decimal $ (1:# -> 1:$)
  4479. 1685C P  #:>%>$
  4480. 1685C @  (2:$ 1:# -> 1:$) (uncoerced first)
  4481. 1686A P  #>%>$
  4482. 1686A @  (2:$ 1:# -> 1:$) (uncoerced first)
  4483. 16969 #  <13h>
  4484. 16973 :: NS:CROSSVECTOR?
  4485. 16973 @  Is stk1 1D 2 or 3 element real vector? (1:[] -> 2:#dim 1:T / 1:F)
  4486. 169A5 :: HP:NDROPFALSE
  4487. 169E1 :: &ClrStData>$
  4488. 169FA :: &!DCompData>$
  4489. 16A0E :: &ClrSt13!DcompData>$
  4490. 16A4A ::
  4491. 16A5E ::
  4492. 16A7C ::
  4493. 16A9A ::
  4494. 16AA9 ::
  4495. 16AD6 #  NS:##4000
  4496. 16AE5 #  NS:##5000
  4497. 16AF4 #  NS:##8000
  4498. 16B03 #  NS:##9000
  4499. 16B12 #  NS:##E000
  4500. 16B21 #  NS:##D000
  4501. 16B30 #  NS:##2F000
  4502. 16B58 ::
  4503. 16B80 ::
  4504. 16BA3 :: {}xxx&Pars$
  4505. 16BAD ::
  4506. 16BB2 $  "{"
  4507. 16BEB $  "}"
  4508. 16C01 :: Dirxxx&Pars$
  4509. 16C15 ::
  4510. 16C38 ::
  4511. 16C42 $  "DIR"
  4512. 16C9D ::
  4513. 16CA7 @  Error: Bad Argument Value
  4514. 16CAC ::
  4515. 16CED $  "END"
  4516. 16D16 :: Tgxxx&Pars$
  4517. 16D20 ::
  4518. 16D25 $  ":"
  4519. 16D8B ::
  4520. 16DB3 :: ''xxx&Pars$
  4521. 16DB3 :: Unxxx&Pars$
  4522. 16DBD :: SWAPDROP#FFFFFSWAP
  4523. 16DF4 ::
  4524. 16E17 ::
  4525. 16E2B :: ::xxx&Pars$
  4526. 16EDF ::
  4527. 16F6B :: 5ROLLDROPEdID>$
  4528. 16F84 :: 2DROP4PICK4ROLL
  4529. 16FCA :: 
  4530. 16FDE :: Othxxx&Pars$
  4531. 16FED :: 
  4532. 1700B :: []xxx&Pars$
  4533. 17042 ::
  4534. 17047 $  "Array of "
  4535. 170B8 :: 2ndlvl[]?CHRadd
  4536. 170B8 @  (2:#n 1:$ -> 2:#n if #n=0 then 1:$+"[" else 1:$+" " )
  4537. 17126 :: "]"!append$
  4538. 1716C ::
  4539. 1719E ::
  4540. 171B2 :: COLASWAPDROPNULL{}
  4541. 171DF ::
  4542. 171E9 ::
  4543. 17211 ::
  4544. 1721B ::
  4545. 17234 ::
  4546. 1727A ::
  4547. 172C0 ::
  4548. 172DE ::
  4549. 17315 ::
  4550. 17351 ::
  4551. 1737E ::
  4552. 173A6 ::
  4553. 173D3 ::
  4554. 1743C ::
  4555. 1746E :: PrEdC%>$
  4556. 1746E @  (1:C% -> 1:$) (Display & edit versions are the same)
  4557. 1748C ::
  4558. 174A5 :: ZERO"["
  4559. 174C3 :: 
  4560. 174F0 :: NS:9UNROLL
  4561. 17518 :: 
  4562. 17527 :: ZERO"("
  4563. 17545 ::
  4564. 175C7 {}
  4565. 175CC ::
  4566. 175EA ::
  4567. 17608 ::
  4568. 1762B ::
  4569. 17653 ::
  4570. 1768A ::
  4571. 176AD ::
  4572. 176EE ::
  4573. 17707 :: 6PICKSPACE$EQ?SPACE$!insert$
  4574. 17734 ::
  4575. 1774D ::
  4576. 177B6 :: 2SPACE$EQ
  4577. 177B6 @  "  " EQ (1:$ -> 1:T/F)
  4578. 177CA ::
  4579. 1781A :: NS:SWAPDROPFALSE
  4580. 1782E :: NS:2LEN$#+
  4581. 1782E @  (2:$2 1:$1 -> 3:$2 2:$1 1:#len1+#len2)
  4582. 17847 ::
  4583. 178BA ::
  4584. 178E2 ::
  4585. 178FB ::
  4586. 17914 ::
  4587. 1792D ::
  4588. 1795A P  HP:!DcompWidth
  4589. 1795A @  Store maximum string compile length into DcompWidth (70770)
  4590. 17980 P  NS:@DcompWidth
  4591. 17980 @  Recall maximum string compile lengthfrom DcompWidth (70770)
  4592. 179AC P  GROBDIMw#1=
  4593. 179AC @  Is GROB #xdim == #1 ? (1:Grob -> 1:T/F)
  4594. 179D0 P  GetDirVarConts
  4595. 179D0 @  Get variable contents (2:DIR 1:# )
  4596. 17ADB :: 
  4597. 17AEA CD
  4598. 17B86 :: HN:VLM
  4599. 17C17 ::
  4600. 17C3F P
  4601. 17C55 P
  4602. 17C6A ::
  4603. 17C97 ::
  4604. 17CBF ::
  4605. 17CD8 ::
  4606. 17D0A ::
  4607. 17D32 ::
  4608. 17D46 ::
  4609. 17D7D ::
  4610. 17DAF ::
  4611. 17DB4 $  "PICT"
  4612. 17DE9 ::
  4613. 17E11 ::
  4614. 17E39 ::
  4615. 17E7A ::
  4616. 17EAC ::
  4617. 17EBB :: :: IT 2DROP 2RDROP 2RDROP ;
  4618. 17F15 P
  4619. 17F40 ::
  4620. 17F4A #  NS:##B8
  4621. 17F59 CD
  4622. 17F84 ::
  4623. 17FB1 ::
  4624. 1804C ::
  4625. 18088 ::
  4626. 180C9 ::
  4627. 180D8 :: ?DROP3RDROP 
  4628. 180D8 @  :: IT 2DROP 2RDROP 2RDROP ;
  4629. 18178 ::
  4630. 181C8 ::
  4631. 181FA P
  4632. 18242 P (Handles 705DD)
  4633. 1825F P (Handles TEMPENV)
  4634. 18282 P (Handles ArgPrts)
  4635. 18295 P (Handles #ArgPrts and ArgPrts)
  4636. 18308 P  HP:DropSysObs
  4637. 18308 @  Do GC and recalculate stack (Handles DSKBOT STKSIZE)
  4638. 18338 P
  4639. 18355 P (Handles DSKBOT STKSIZE)
  4640. 18397 :: Conts>$name
  4641. 18397 @  (1:contents -> 1:$Name / NULL$) ("0:" put in front of LIB/BAK names)
  4642. 183C4 :: PConts>$name:
  4643. 183C4 @  Returns "0:" + $name (1:LIB/BAK -> 1:$)
  4644. 183C9 $  "0:"
  4645. 183EB P  Pconts>$name
  4646. 183EB @  Returns name as $ (1:LIB/BAK -> 1:$)
  4647. 18404 P  NConts>$name
  4648. 18404 @  (1:contents (not LIB/BAK) -> 1:$name / NULL$) 
  4649. 1848C :: HP:PATHDIR
  4650. 1848C @  Internal PATH (-> 1:{})
  4651. 184E1 :: HP:CREATEDIR
  4652. 184E1 @  Internal CRDIR (Purges original if there is one) (1:ID ->)
  4653. 184FA :: NS:TYPEDIR?ERR
  4654. 184FA @  If DIR then Error: Directory Not Allowed (1:Any ->)
  4655. 18513 :: HP:?STO_HERE
  4656. 18513 :: HP:XEQSTOID
  4657. 18513 @  Internal STO (2:Any,1:ID)
  4658. 18536 P  NS:DUP@_HERE
  4659. 18536 @  (1:ID -> 3:ID 2:contents 1:True | 2:ID 1:False)
  4660. 18536 @  Search is restricted to current directory
  4661. 1853B :: HP:SAFE@_HERE
  4662. 1853B @  Internal RCL (1:LAM/ID -> 2:contents 1:T / 1:F)
  4663. 1853B @  Search is restricted to current directory
  4664. 1854F :: HP:?PURGE_HERE
  4665. 1854F @  Internal PURGE (1:ID ->) (Doesn't error if ID not used)
  4666. 1856D :: CKPrepDIRPURGE
  4667. 1856D @  Checks for empty DIR and being embedded in SAVEDCOTEXT
  4668. 18595 :: HP:XEQPGDIR
  4669. 18595 @  Internal PGDIR (1:ID ->) Checks references etc too.
  4670. 185C7 :: EVAL:inCONTEXT
  4671. 185C7 @  Saves CONTEXT, Evals next, resumes CONTEXT (even if 'REVAL errors)
  4672. 185EA :: SYSTMPCONTEXTERRJMP
  4673. 18608 :: NS:NOTNULLDIR?ERR
  4674. 18608 @  Errors if DIR is not empty (1:DIR ->)
  4675. 18621 :: HP:LastNonNull
  4676. 18621 @  Returns LASTRAM-WORD, if TRUE then TypeNib1AND#02, else FALSE
  4677. 1863A :: HP:PrevNonNull
  4678. 1863A @  Returns PREVRAM-WORD, if TRUE then TypeNib1AND#02, else FALSE
  4679. 18653 P  TypeNib1AND#02
  4680. 18653 @  (1:Any -> 1:T/F)y
  4681. 1867F :: NS:ExecOnDirVars
  4682. 1867F @  Executes a program on all current directory variables
  4683. 1867F @  Program can use stk1 (ID) or stk3 (contents) with PICK only
  4684. 1867F @  Program must return Ob to add to a list if True and True/False
  4685. 1867F @  (2:Ob 1:seco -> 1:{}) Ob is at stk5  (see DOVARS at 18779!)
  4686. 186E8 :: HP:DOTVARS%
  4687. 186E8 @  Internal TVARS (1:%)
  4688. 18706 :: DOTVARS{}
  4689. 18706 @  Internal TVARS (1:List)
  4690. 18742 :: DIRTVARSprg
  4691. 18742 @  Program passed by TVARS to ExecOnDirVars (with { %type .. } on stk 2)
  4692. 18779 :: HP:DOVARS
  4693. 18779 @  Internal VARS (-> 1:{})  ( :: TrueTrue ExecOnDirVars; )
  4694. 1878D ::
  4695. 187AB P  Called:18792
  4696. 18800 @  Any number between 1 and infinity is meaningless
  4697. 18802 P  NS:LASTCMD@
  4698. 18802 @  Returns last command saved (-> 1:Cmd) (-> 1:#0 if last cmd cleared)
  4699. 18802 @  (Ex: :: 1 2 + LASTCMD@ ; <EVAL> ->  2:3 1:+)
  4700. 1884D P  HP:0LASTOWDOB!
  4701. 1884D @  Clears the command save done by the last CK<n>
  4702. 18873 :: HP:AND$
  4703. 18873 @  Internal AND (2:$,1:$)
  4704. 18887 :: HP:OR$
  4705. 18887 @  Internal OR (2:$,1:$)
  4706. 1889B :: HP:XOR$
  4707. 1889B @  Internal XOR (2:$,1:$)
  4708. 188AF :: 2LEN$#=TOTEMPSWAP
  4709. 188AF @  If copy len($1) = len($2), then NEWOB/SWAP, else Bad Argument Value
  4710. 188D2 :: NOT$
  4711. 188D2 @  Internal NOT (1:$)
  4712. 188E6 P  $AND$
  4713. 188E6 @  Deep internal AND (2:$,1:$) (Doesn't NEWOB)
  4714. 188F5 P  $OR$
  4715. 188F5 @  Deep internal OR (2:$,1:$) (Doesn't NEWOB)
  4716. 18904 P  $XOR$
  4717. 18904 @  Deep internal XOR (2:$,1:$) (Doesn't NEWOB)
  4718. 18961 P  $NOT$
  4719. 18961 @  Deep internal NOT (1:$ -> 1:$) (Doesn't NEWOB)
  4720. 18A01 :: CONFIG002
  4721. 18A01 @  Configuration code for library 002 (XLIB 2) (:: #2 HOMEATTACH ;)
  4722. 18A15 P  HP:CK0NOLASTWD
  4723. 18A15 @  Save stack size and clear #ArgPntrs
  4724. 18A1E P  HP:CK0
  4725. 18A1E @  Save current command, stack size, clear #ArgPntrs
  4726. 18A5B P  HP:CK3
  4727. 18A5B @  Save current command and verify DEPTH >= 3
  4728. 18A68 P  HP:CK3NOLASTWD
  4729. 18A68 @  Verify DEPTH >= 3
  4730. 18A80 P  HP:CK2
  4731. 18A80 @  Save current command and verify DEPTH >= 2
  4732. 18A8D P  HP:CK2NOLASTWD
  4733. 18A8D @  Verify DEPTH >= 2
  4734. 18AA5 P  HP:CK1
  4735. 18AA5 @  Save current command and verify DEPTH >= 1
  4736. 18AB2 P  HP:CK1NOLASTWD
  4737. 18AB2 @  Verify DEPTH >= 1
  4738. 18AC6 @  MC: verify DEPTH >= C.S, expect P = 2*C.S - 1
  4739. 18B6D P  HP:CK5
  4740. 18B6D @  Save current command and verify DEPTH >= 5
  4741. 18B7A P  HP:CK5NOLASTWD
  4742. 18B7A @  Verify DEPTH >= 5
  4743. 18B92 P  HP:CK4
  4744. 18B92 @  Save current command and verify DEPTH >= 4
  4745. 18B9F P  HP:CK4NOLASTWD
  4746. 18B9F @  Verify DEPTH >= 4
  4747. 18C34 P  HP:CKN
  4748. 18C34 @  Save current command, check args, R->SB and verify stk1 < DEPTH-1
  4749. 18C4A :: HP:CKNNOLASTWD
  4750. 18C4A @  Check args, R->SB and verify stk1 < DEPTH-1
  4751. 18C77 mc !lastcmd
  4752. 18C77 @  Saves current command (pointer to it)
  4753. 18C92 P  NS:SETUndefIdERR
  4754. 18C92 @  Error: Undefined Name
  4755. 18CA2 P  HP:SETSIZEERR
  4756. 18CA2 @  Error: Bad Argument Value
  4757. 18CB2 P  HP:SETTYPEERR
  4758. 18CB2 @  Error: Bad Argument Type
  4759. 18CC2 P  NS:SETFewArgsERR
  4760. 18CC2 @  Error: Too Few Arguments
  4761. 18CD7 P  HP:%ABSCOERCE
  4762. 18CD7 @  (1:% -> 1:#)
  4763. 18CEA P  HP:COERCE
  4764. 18CEA @  Internal R->SB (1:% -> 1:#)
  4765. 18DBF P  HP:UNCOERCE
  4766. 18DBF @  Internal SB->R (1:# -> 1:%)
  4767. 18E18 :: SYMBEVALTILLother
  4768. 18E18 @  Do COMPEVAL to ALG until it isn't ALG anymore 
  4769. 18E18 @  (Other args do nothing, ATTN works)
  4770. 18E45 P  NS:DNOTSYMB?SEMI
  4771. 18E45 @  If level1 not algebraic, SEMI
  4772. 18E7E P  DUPTYPEALG?
  4773. 18E7E @  Maybe slightly faster than DUPTYPESYMB? dunno
  4774. 18EBA P  HP:COMPEVAL
  4775. 18EBA @  Internal EVAL (1:Composite)
  4776. 18ECE P  HP:CK1&Dispatch
  4777. 18ECE @  Save current command, verify DEPTH >= 1 and check args.
  4778. 18EDF P  HP:CK2&Dispatch
  4779. 18EDF @  Save current command, verify DEPTH >= 2 and check args.
  4780. 18EF0 P  HP:CK3&Dispatch
  4781. 18EF0 @  Save current command, verify DEPTH >= 3 and check args.
  4782. 18F01 P  HP:CK4&Dispatch
  4783. 18F01 @  Save current command, verify DEPTH >= 4 and check args.
  4784. 18F12 P  HP:CK5&Dispatch
  4785. 18F12 @  Save current command, verify DEPTH >= 5 and check args.
  4786. 18F23 P  HP:EvalNoCK
  4787. 18F23 @  Evaluate composite (command) without saving as current command
  4788. 18F23 @  Example: :: ' x+ EvalNoCK ; doesn't save + command, but EVALs it
  4789. 18F23 @  NOTE: If the first command in stk1 is CK<n>&Dispatch then
  4790. 18F23 @        CK&DISPATCH1 is started, else 1st command is skipped
  4791. 18F23 @  NOTE: Stk1 must be a composite since prolog is ignored
  4792. 18F23 @  Example: :: NOP %+ %+ ; EvalNoCK adds 3 reals
  4793. 18F6A :: NS:EvalNoCK:
  4794. 18F6A @  Evaluate next command without saving as current command
  4795. 18F6A @  Example: :: EvalNoCK x+ ; doesn't save + command, but EVALs it
  4796. 18F9D P  HP:CK&DISPATCH0
  4797. 18F9D @  Check arguments for type (doesn't strip tags if no match)
  4798. 18FA9 P  CK&DISPATCH-XFER
  4799. 18FA9 @  Same as CK&DISPATCH1 ???
  4800. 18FB2 P  HP:CK&DISPATCH1
  4801. 18FB2 @  Check arguments for type (strip tags if no match)
  4802. 191B9 P  HP:#*OVF
  4803. 191B9 @  (2:# 1:# -> 1:#) Multiplication with #FFFFF as max result
  4804. 19207 P  NS:CKNFLOATS
  4805. 19207 @  Check stack for #n %/C% , Error if not
  4806. 19207 @  (1:#n 2:Any 3:%/C%...N+3:%/C% -> 1:%0 or C%0 2:Any....)
  4807. 19294 P  NS:n>ARRY
  4808. 19294 @  ->ARRY (1:[%/C%] 2:#n 3:%/C%...N+3:%/C% -> 1:[%/C%])
  4809. 19294 @  Stk3 will go to the last element. #n can be < #elements
  4810. 19350 P  NS:dNINHARDROM?
  4811. 19350 @  Stk1 not in HP48SX ROM ? (addr>70000) (1:Any -> 2:Any 1:T/F)
  4812. 1936C :: DUP@_HERENOT?ERR
  4813. 1936C @  Recall ID, error if not found (Search only current directory)
  4814. 19385 :: OVERSAFE@_HERENOT?ERR
  4815. 19385 @  Recall ID/LAM contents, error if not found
  4816. 193A3 :: 3PICKSAFE@_HERENOT?ERR
  4817. 193A3 @  Recall ID/LAM contents, error if not found
  4818. 193C1 :: NS:DUPNOT[]?ERR
  4819. 193C1 @  If not array, then error (1:Any -> 1:Any)
  4820. 193DA :: COERCE{}2CKNOT0
  4821. 193DA @  List of 1 or 2 % to list of # (1:{ % (%) } -> 1:{ # (#) }
  4822. 193DA @  Errors if not above argument, or if either real coerced is 0
  4823. 19402 :: COERCE{}1CKNOT0
  4824. 19402 @  (1:% -> 1:{ # } )  #0 causes SIZEERR
  4825. 19443 :: NS:DUPNOT{}?ERR
  4826. 19443 @  If not list, then error (1:Any -> 1:Any)
  4827. 1945C :: NS:CKTYPE{}
  4828. 1945C @  Error if list elements not #prolog types or if NULLCOMP
  4829. 1945C @  (2:Comp 1:#prolog -> 1:Comp)
  4830. 19489 :: MATCHPRLG?#1+
  4831. 19489 @  (3:#prolog 2:#n 1:Ob (of prolog type) -> 2:#prolog 1:#n+1)
  4832. 19489 @  If not of prolog type then Error (Ob replaced with True) 
  4833. 194BB :: NS:DUP[C%]?ERR
  4834. 194BB @  Verify Real Array (1:Any -> 1:Any), error if not
  4835. 194D9 :: NS:DUP[%]?ERR
  4836. 194D9 @  Verify complex Array (1:Any -> 1:Any), error if not
  4837. 194F7 :: HP:COERCE2
  4838. 194F7 @  (2:%2 1:%1 -> 2:#2 1:#1)
  4839. 1950B :: HP:UNCOERCE2
  4840. 1950B @  (2:#2 1:#1 -> 2:%2 1:%1)
  4841. 19529 :: NS:UNCOERCE{}2
  4842. 19529 @  List of # to List of % (1 or 2 elements) (1:{#1 (#2)} -> 1:{%1 (%2)})
  4843. 19538 :: UNCOERCEONE{}N
  4844. 19538 @  (1:# -> 1:{ % })
  4845. 1955B :: SWAPCOLASAFESTO
  4846. 1957B :: xASR
  4847. 1957B @  ASR (XLIB 2 0)
  4848. 1959B :: xRL
  4849. 1959B @  RL (XLIB 2 1)
  4850. 195BB :: xRLB
  4851. 195BB @  RLB (XLIB 2 2)
  4852. 195DB :: xRR
  4853. 195DB @  RR (XLIB 2 3)
  4854. 195FB :: xRRB
  4855. 195FB @  RRB (XLIB 2 4)
  4856. 1961B :: xSL
  4857. 1961B @  SL (XLIB 2 5)
  4858. 1963B :: xSLB
  4859. 1963B @  SLB (XLIB 2 6)
  4860. 1965B :: xSR
  4861. 1965B @  SR (XLIB 2 7)
  4862. 1967B :: xSRB
  4863. 1967B @  SRB (XLIB 2 8)
  4864. 1969B :: xR>B
  4865. 1969B @  R->B (XLIB 2 9)
  4866. 196BB :: xB>R
  4867. 196BB @  B->R (XLIB 2 10)
  4868. 196DB :: xCONVERT
  4869. 196DB @  CONVERT (XLIB 2 11)
  4870. 1971B :: xUVAL
  4871. 1971B @  UVAL (XLIB 2 12) H:000
  4872. 1974F :: xUNIT
  4873. 1974F @  UNIT (XLIB 2 13)
  4874. 19771 :: xUBASE
  4875. 19771 @  UBASE (XLIB 2 14) H:000
  4876. 197A5 :: xUFACT
  4877. 197A5 @  UFACT (XLIB 2 15)
  4878. 197C8 :: UFACT
  4879. 197C8 @  Internal UFACT (2:Unit 1:Unit -> 1:Unit)
  4880. 197F7 :: xTIME
  4881. 197F7 @  TIME (XLIB 2 16)
  4882. 19812 :: xDATE
  4883. 19812 @  DATE (XLIB 2 17)
  4884. 1982D :: xTICKS
  4885. 1982D @  TICKS (XLIB 2 18)
  4886. 19848 :: xWSLOG
  4887. 19848 @  WSLOG (XLIB 2 19)
  4888. 19863 :: xACKALL
  4889. 19863 @  ACKALL (XLIB 2 20)
  4890. 1987E :: xACK
  4891. 1987E @  ACK (XLIB 2 21)
  4892. 1989E :: x>DATE
  4893. 1989E @  ->DATE (XLIB 2 22)
  4894. 198BE :: x>TIME
  4895. 198BE @  ->TIME (XLIB 2 23)
  4896. 198DE :: xCLKADJ
  4897. 198DE @  CLKADJ (XLIB 2 24)
  4898. 198FE :: xSTOALARM
  4899. 198FE @  STOALARM (XLIB 2 25)
  4900. 19928 :: xRCLALARM
  4901. 19928 @  RCLALARM (XLIB 2 26)
  4902. 19948 :: xFINDALARM
  4903. 19948 @  FINDALARM (XLIB 2 27)
  4904. 19972 :: xDELALARM
  4905. 19972 @  DELALARM (XLIB 2 28)
  4906. 19992 :: xTSTR
  4907. 19992 @  TSTR (XLIB 2 29)
  4908. 199B2 :: xDDAYS
  4909. 199B2 @  DDAYS (XLIB 2 30)
  4910. 199D2 :: xDATE+
  4911. 199D2 @  DATE+ (XLIB 2 31)
  4912. 199EB :: ToggleClk_P0CEB9
  4913. 199EB @  Toggles Clock display flag (-40), calls P0CEB9
  4914. 19A04 :: ToggleM/D
  4915. 19A04 @  Toggles date format flag (-42)
  4916. 19A18 :: Toggle12/24
  4917. 19A18 @  Toggles 24 hour clock flag (-41)
  4918. 19A2C :: DoA/PMkey
  4919. 19A2C @  Advances default alarm 12 hours and prompts for alarm
  4920. 19A54 :: A/PM
  4921. 19A54 @  Internal A/PM (Does CLKADJUSTED)
  4922. 19A68 :: GetDefaultAlarm
  4923. 19A68 @  Recalls ID_ALARMDAT or gives { %date %0 "" %0 }
  4924. 19A72 g' ID_ALRMDAT
  4925. 19A91 {} DefAlrm{}
  4926. 19A91 @  { %0 "" %0 } date must be added to head
  4927. 19A96 %  %0
  4928. 19AAB $  ""
  4929. 19AB5 %  %0
  4930. 19ADE :: %HOURToggle
  4931. 19ADE @  Toggles AM/PM hour (1:% -> 1:%+12 MOD24) 
  4932. 19B06 :: DoALRMSETkey
  4933. 19B06 @  Sets default alarm & starts time menu
  4934. 19B1F g' ID_ALRMDAT
  4935. 19B43 :: ClockAdj+1h
  4936. 19B5C :: ClockAdj-1h
  4937. 19B7A :: ClockAdj+1m
  4938. 19B93 :: ClockAdj-1m
  4939. 19BB1 :: ClockAdj+1s
  4940. 19BCA :: ClockAdj-1s
  4941. 19BE8 :: Do>TIMEkeu
  4942. 19BE8 @  Checks for real, valid time, & starts alarm prompt with that time
  4943. 19C06 :: TIMEOK?Put&Show
  4944. 19C06 @  Checks for valid time, & starts alarm prompt with that time
  4945. 19C1F :: Do>DATEkey
  4946. 19C3D :: DATEOK?Put&Show
  4947. 19C56 :: DoWEEKkey
  4948. 19C56 @  Checks for %, multiplies with %TICKSweek, takes ABS IP, checks if
  4949. 19C56 @  is a vaild rpt factor, stores it & starts alarm menu (1:%rpt)
  4950. 19C74 :: WEEKSrptPut&Show
  4951. 19C74 @  Doesn't check for rpt being real
  4952. 19C88 :: DoDAYkey
  4953. 19CA6 :: DAYrptPut&Show
  4954. 19CBA :: DoHOURkey
  4955. 19CD8 :: HOURrptPut&Show
  4956. 19CEC :: DoMINkey
  4957. 19D0A :: MINrptPut&Show
  4958. 19D1E :: DoSECkey
  4959. 19D3C :: SECrptPut&Show
  4960. 19D50 :: rptPut&Show
  4961. 19D50 @  Multiplies % with %rptfactor, checks it & starts alrm menu with it
  4962. 19D73 :: StoAlarmMesg
  4963. 19D73 @  Stores ALARM message (1:$ ->)
  4964. 19D8C :: GetAlarmMesg
  4965. 19D8C @  Gets stored ALARM message string (-> 1:$)
  4966. 19DAA :: PUTNDefault&PromptAlarm
  4967. 19DAA @  Stores Ob to nth (max 4) position in DefaultAlarm and prompts 
  4968. 19DAA @  for alarm (2:Ob 1:#1-4 -> 1:Inputted stuff)
  4969. 19DBE g' ID_ALRMDAT
  4970. 19DE2 :: DispNextAlarm
  4971. 19DE2 @  Displays next alarm if MSGNOTOK? is false, else SetDA2NoCh
  4972. 19DF6 :: SHOWNextAlrm
  4973. 19DF6 @  Displays next alarm
  4974. 19E0F :: DispPassedAlarmMesg
  4975. 19E0F @  Displays a passed alarm (1:{alarm})
  4976. 19E50 :: DispNextAlarmMesg
  4977. 19E9B :: DISPmesg$&ALARM
  4978. 19E9B @  Displays alarm & message (2:{alarm} 1:$message ->)
  4979. 19EE1 :: DNS:ROPNULL$
  4980. 19EF5 ::
  4981. 19EFA {} RPTTICKS{}
  4982. 19EFA @  { %TICKSweek ... %TICKSsec %1 }
  4983. 19F4F $  "Rpt="
  4984. 19F6B {} RPTmesg${}
  4985. 19F6B @  { " weeks(s)" ... " ticks" }
  4986. 19F70 $  " week(s)"
  4987. 19F8A $  " day(s)"
  4988. 19FA2 $  " hour(s)"
  4989. 19FBC $  " minute(s)"
  4990. 19FDA $  " second(s)"
  4991. 19FF8 $  " ticks"
  4992. 1A031 :: PromptAlarm
  4993. 1A031 @  If MSGOK? asks for alarm (-> 1:inputted)
  4994. 1A040 :: PromptAlarm!
  4995. 1A040 @  Asks for alarm (-> 1:inputted)
  4996. 1A06D :: PromptRptInterval
  4997. 1A086 :: SetShowClock'SAVEMENUOFFSETSetDA1Bad_ExitAction!
  4998. 1A095 :: SAVEMENUOFFSETSetDA1Bad
  4999. 1A0B3 :: SetShowClock'SAVEMENUOFFSETSetDA12Bad_ExitAction!
  5000. 1A0C2 :: SAVEMENUOFFSETSetDA12Bad
  5001. 1A0E0 :: DISPAcknowSORTASLOW
  5002. 1A0E0 @  Flashes "Acknowledged" message
  5003. 1A105 :: xCRDIR
  5004. 1A105 @  CRDIR (XLIB 2 32)
  5005. 1A125 :: xPATH
  5006. 1A125 @  PATH (XLIB 2 33)
  5007. 1A140 :: xHOME
  5008. 1A140 @  HOME (XLIB 2 34)
  5009. 1A15B :: xUPDIR
  5010. 1A15B @  UPDIR (XLIB 2 35)
  5011. 1A16F :: HP:UPDIR
  5012. 1A16F @  Internal UPDIR ( :: CONTEXT@ GETUPDIR NOT?SEMI CONTEXT! ; )
  5013. 1A194 :: xVARS
  5014. 1A194 @  VARS (XLIB 2 36)
  5015. 1A1AF :: xTVARS
  5016. 1A1AF @  TVARS (XLIB 2 37)
  5017. 1A1D9 :: xBYTES
  5018. 1A1D9 @  BYTES (XLIB 2 38)
  5019. 1A1FC :: BYTES
  5020. 1A1FC @  Internal BYTES (1:Any except ID)
  5021. 1A20B :: HARDROMBYTES
  5022. 1A20B @  Internal BYTES (1:HARDROM object -> 2:HXS0000 1:%2.5)
  5023. 1A223 %  NS:%2.5
  5024. 1A23D :: RAMBYTES
  5025. 1A23D @  BYTES (1:ram-object -> 2:HXScrc 1:%size)
  5026. 1A265 :: HP:VARSIZE
  5027. 1A265 @  Internal BYTES (1:ID ->2:HXScrc 1:%size)
  5028. 1A292 #  <9h>
  5029. 1A2BC :: xNEWOB
  5030. 1A2BC @  NEWOB (XLIB 2 39) (:: CK1 INHARDROM? ?SEMI TOTEMPOB ;)
  5031. 1A2DA P  HP:INHARDROM?
  5032. 1A2DA @  Obj in HARDROM? (addr<70000) (1:Ob -> 2:Ob 1:T/F)
  5033. 1A303 :: xKILL
  5034. 1A303 @  KILL (XLIB 2 40)
  5035. 1A31E :: xOFF
  5036. 1A31E @  OFF (XLIB 2 41)
  5037. 1A339 :: xDOERR
  5038. 1A339 @  DOERR (XLIB 2 42)
  5039. 1A36D :: xERR0
  5040. 1A36D @  ERR0 (XLIB 2 43)
  5041. 1A388 :: xERRN
  5042. 1A388 @  ERRN (XLIB 2 44)
  5043. 1A3A3 :: xERRM
  5044. 1A3A3 @  ERRM (XLIB 2 45)
  5045. 1A3BE :: xEVAL
  5046. 1A3BE @  EVAL (XLIB 2 46)
  5047. 1A3FE :: HP:xIFTE
  5048. 1A3FE @  IFTE (XLIB 2 47) H:3A1
  5049. 1A471 h# hex_0140626250
  5050. 1A485 rf rr_DERIFTE
  5051. 1A48A #  r_MAKEIFTE
  5052. 1A494 #  r_WHEREIFTE
  5053. 1A49E rf r_FORMIFTE
  5054. 1A4A3 :: %IFTE
  5055. 1A4A3 @  Internal IFTE (3:% 2:Any 1:Any)
  5056. 1A4CD :: xIFT
  5057. 1A4CD @  IFT (XLIB 2 48)
  5058. 1A4F0 :: %IFT
  5059. 1A4F0 @  Internal IFT (2:% 1:Any)
  5060. 1A513 :: SYMIFT
  5061. 1A513 @  Internal IFT (2:sym 1:Any)
  5062. 1A52E :: xSYSEVAL
  5063. 1A52E @  SYSEVAL (XLIB 2 49)
  5064. 1A547 :: NS:HXSSYSEVAL
  5065. 1A547 @  Internal SYSEVAL (1:HXS)
  5066. 1A556 CD NS:#SYSEVAL
  5067. 1A556 @  Internal SYSEVAL (1:#)
  5068. 1A584 :: xDISP
  5069. 1A584 @  DISP (XLIB 2 50)
  5070. 1A5A4 :: xFREEZE
  5071. 1A5A4 @  FREEZE (XLIB 2 51)
  5072. 1A5C4 :: xBEEP
  5073. 1A5C4 @  BEEP (XLIB 2 52)
  5074. 1A5E4 :: x>NUM
  5075. 1A5E4 @  ->NUM (XLIB 2 53)
  5076. 1A604 :: xLASTARG
  5077. 1A604 @  LASTARG (XLIB 2 54)
  5078. 1A631 P  NS:LASTARG
  5079. 1A631 @  Internal LASTARG (Doesn't check LASTARG flag)
  5080. 1A71F :: xWAIT
  5081. 1A71F @  WAIT (XLIB 2 55)
  5082. 1A738 :: HP:Wait/GetKey
  5083. 1A738 @  Internal WAIT (1:%any)
  5084. 1A7B5 :: %WAIT
  5085. 1A7B5 @  Internal WAIT (timed) (1:%positive) (Does ?ATTNQUITNOLASTWD after)
  5086. 1A7C9 :: HP:dowait
  5087. 1A7C9 @  Deep internal WAIT (timed) (1:%positive)
  5088. 1A7CE %  %8192
  5089. 1A7ED CD NS:HXSWAIT
  5090. 1A7ED @  Deep internal WAIT (timed) (1:HXS)
  5091. 1A858 :: xCLLCD
  5092. 1A858 @  CLLCD (XLIB 2 56)
  5093. 1A873 :: xKEY
  5094. 1A873 @  KEY (XLIB 2 57)
  5095. 1A8BB :: xCONT
  5096. 1A8BB @  CONT (XLIB 2 58)
  5097. 1A8D8 :: x=
  5098. 1A8D8 @  = (XLIB 2 59) H:5C8
  5099. 1A973 rf r_EQWR=
  5100. 1A978 rf r_hex_args=
  5101. 1A97D rf rr_DER=
  5102. 1A982 rf rr_RINV=
  5103. 1A987 rf rr_RULES7
  5104. 1A995 :: xNEG
  5105. 1A995 @  NEG (XLIB 2 60) H:5C8
  5106. 1A9F4 rf r_EQWRNEG
  5107. 1A9F9 h# hex_0108
  5108. 1AA07 rf r_DERNEG
  5109. 1AA0C rf r_RINVNEG
  5110. 1AA11 rf rr_RULES6
  5111. 1AA1F :: xABS
  5112. 1AA1F @  ABS (XLIB 2 61) H:080
  5113. 1AA60 rf rr_DERABS
  5114. 1AA6E :: xCONJ
  5115. 1AA6E @  CONJ (XLIB 2 62) H:0C8
  5116. 1AAA5 rf r_DERCONJ
  5117. 1AAAA rf r_RINVCONJ
  5118. 1AAAF rf rr_RULES7
  5119. 1AABD :: xPI
  5120. 1AABD @  pi (XLIB 2 63) H:080
  5121. 1AAD1 rf r_DROP%0
  5122. 1AADF :: xMAXR
  5123. 1AADF @  MAXR (XLIB 2 64) H:080
  5124. 1AAF3 rf r_DROP%0
  5125. 1AB01 :: xMINR
  5126. 1AB01 @  MINR (XLIB 2 65) H:080
  5127. 1AB15 rf r_DROP%0
  5128. 1AB23 :: xe
  5129. 1AB23 @  e (XLIB 2 66) H:080
  5130. 1AB32 rf r_DROP%0
  5131. 1AB45 :: xi
  5132. 1AB45 @  i (XLIB 2 67) H:080
  5133. 1AB59 rf r_DROP%0
  5134. 1AB67 :: HP:x+
  5135. 1AB67 @  + (XLIB 2 68) H:5C8
  5136. 1AC70 rf r_EQWR+
  5137. 1AC75 h# hex_70107
  5138. 1AC84 rf rr_DER+
  5139. 1AC89 rf rr_RINV+
  5140. 1AC8E rf rr_RULES1
  5141. 1AC93 :: NS:SWAP>HCOMP
  5142. 1AC93 @  Internal + (2:Any 1:comp -> 1:comp)
  5143. 1ACA7 :: $+O
  5144. 1ACA7 @  Internal + (2:$ 1:Any -> 1:$)
  5145. 1ACBB :: O+$
  5146. 1ACBB @  Internal + (2:Any 1:$ -> 1:$)
  5147. 1ACDD :: xNOP
  5148. 1ACDD @  + (no operation) (XLIB 2 69) H:500
  5149. 1ACF6 rf r_EQWRNOP
  5150. 1ACFB rf rhex_0108
  5151. 1AD09 :: HP:x-
  5152. 1AD09 @  - (XLIB 2 70) H:5C8
  5153. 1ADCC rf r_EQWR-
  5154. 1ADD1 rf rhex_70107
  5155. 1ADD6 rf rr_DER-
  5156. 1ADDB rf rr_RINV-
  5157. 1ADE0 rf rr_RULES1
  5158. 1ADEE :: HP:x*
  5159. 1ADEE @  * (XLIB 2 71) H:5C8
  5160. 1AED9 rf r_EQWR*
  5161. 1AEDE h# hex_80108
  5162. 1AEED rf rr_DER*
  5163. 1AEF2 rf rr_RINV*
  5164. 1AEF7 rf rr_RULES2
  5165. 1AF05 :: x/
  5166. 1AF05 @  / (XLIB 2 72) H:5C8
  5167. 1AFDC rf r_EQWR/
  5168. 1AFE1 rf r_DISPhex/
  5169. 1AFE6 rf rr_DER/
  5170. 1AFEB rf rr_RINV/
  5171. 1AFF0 rf rr_RULES2
  5172. 1AFF5 :: DISPhex/
  5173. 1AFF5 @  If Tst_7068D:1 then hex_8014050 else hex_80108
  5174. 1B013 h# hex_8014050
  5175. 1B02D :: x^
  5176. 1B02D @  ^ (XLIB 2 73) H:5CC
  5177. 1B0C8 rf r_EQWR^
  5178. 1B0CD rf r_DISPhex^
  5179. 1B0D2 rf rr_DER^
  5180. 1B0D7 rf rr_RINV^
  5181. 1B0DC rf rr_RULES3
  5182. 1B0E1 rf r_INTG^
  5183. 1B0E6 :: DISPhex^
  5184. 1B0E6 @  If Tst_7068D:1 then hex_9014050 else hex_90109
  5185. 1B104 h# hex_90109
  5186. 1B113 h# hex_9014050
  5187. 1B124 :: NS:CK%^
  5188. 1B124 @  Internal ^ (2:% 1:% -> 1:% /C%)
  5189. 1B13D :: %^errorhandle
  5190. 1B147 #  ##304
  5191. 1B185 :: xrpnXROOT
  5192. 1B185 @  XROOT (XLIB 2 74) H:A
  5193. 1B194 :: rpnXROOT
  5194. 1B1BC rf r_xXROOT
  5195. 1B1CA :: xXROOT
  5196. 1B1CA @  XROOT (XLIB 2 75) H:401
  5197. 1B233 rf r_EQWRXROOT
  5198. 1B238 rf r_FORMXROOT
  5199. 1B23D :: SWAPUMXROOT
  5200. 1B23D @  (1:%/C%/Unit 2:%/C%/Unit -> 1:Unit)
  5201. 1B251 :: SWAP%NROOT
  5202. 1B251 @  Internal XROOT (1:% 2:% -> 1:%)
  5203. 1B265 rf r_sNOP
  5204. 1B26A rf r_sNOP
  5205. 1B278 :: xINV
  5206. 1B278 @  INV (XLIB 2 76) H:0CC
  5207. 1B2B9 rf rr_DERINV
  5208. 1B2BE rf rr_RINVINV
  5209. 1B2C3 rf rr_RULES6
  5210. 1B2C8 #  r_INTGINV
  5211. 1B2DB :: xARG
  5212. 1B2DB @  ARG (XLIB 2 77) H:080
  5213. 1B308 rf r_DERARG
  5214. 1B30D :: %ARG
  5215. 1B30D @  Internal ARG (1:% -> 1:%angle)
  5216. 1B32A :: xSIGN
  5217. 1B32A @  SIGN (XLIB 2 78) H:004
  5218. 1B361 #  r_INTGSIGN
  5219. 1B374 :: xSQRT
  5220. 1B374 @  SQRT (XLIB 2 79) H:5C4
  5221. 1B3AB rf r_EQWRSQRT
  5222. 1B3B0 rf r_DISPhexSQRT
  5223. 1B3B5 rf rr_DERSQRT
  5224. 1B3BA rf r_RINVSQRT
  5225. 1B3BF #  r_INTGSQRT
  5226. 1B3C9 :: DISPhexSQRT
  5227. 1B3C9 @  If Tst_7068D:1 then hex_014050 else hex_010C
  5228. 1B3E7 h# hex_010C
  5229. 1B3F5 :: NS:CK%SQRT
  5230. 1B3F5 @  Internal sqrt (1:% (<0 too))
  5231. 1B426 :: xSQ
  5232. 1B426 @  SQ (XLIB 2 80) H:0C4
  5233. 1B467 rf rr_DERSQ
  5234. 1B46C rf r_RINVSQ
  5235. 1B471 #  r_INTGSQ
  5236. 1B47B :: NS:%SQ
  5237. 1B47B @  Internal SQ (1:% -> 1:%)
  5238. 1B48F :: NS:C%SQ
  5239. 1B48F @  Internal SQ (1:C% -> 1:C%)
  5240. 1B4AC :: xSIN
  5241. 1B4AC @  SIN (XLIB 2 81) H:0CC
  5242. 1B4E3 rf rr_DERSIN
  5243. 1B4E8 rf rr_RINVSIN
  5244. 1B4ED rf rr_RULES9
  5245. 1B4F2 #  r_INTGSIN
  5246. 1B505 :: xCOS
  5247. 1B505 @  COS (XLIB 2 82) H:0CC
  5248. 1B53C rf rr_DERCOS
  5249. 1B541 rf rr_RINVCOS
  5250. 1B546 rf rr_RULES9
  5251. 1B54B #  r_INTGCOS
  5252. 1B55E :: xTAN
  5253. 1B55E @  TAN (XLIB 2 83) H:0CC
  5254. 1B595 rf rr_DERTAN
  5255. 1B59A rf rr_RINVTAN
  5256. 1B59F rf rr_RULES9
  5257. 1B5A4 #  r_INTGTAN
  5258. 1B5B7 :: xSINH
  5259. 1B5B7 @  SINH (XLIB 2 84) H:0CC
  5260. 1B5E4 rf rr_DERSINH
  5261. 1B5E9 rf rr_RINVSINH
  5262. 1B5EE rf rr_RULES9
  5263. 1B5F3 #  r_INTGSINH
  5264. 1B606 :: xCOSH
  5265. 1B606 @  COSH (XLIB 2 85) H:0CC
  5266. 1B633 rf rr_DERCOSH
  5267. 1B638 rf rr_RINVCOSH
  5268. 1B63D rf rr_RULES9
  5269. 1B642 #  r_INTGCOSH
  5270. 1B655 :: xTANH
  5271. 1B655 @  TANH (XLIB 2 86) H:0CC
  5272. 1B682 rf rr_DERTANH
  5273. 1B687 rf rr_RINVTANH
  5274. 1B68C rf rr_RULES9
  5275. 1B691 #  r_INTGTANH
  5276. 1B6A4 :: xASIN
  5277. 1B6A4 @  ASIN (XLIB 2 87) H:0CC
  5278. 1B6D1 rf rr_DERASIN
  5279. 1B6D6 rf r_RINVASIN
  5280. 1B6DB rf rr_RULES10
  5281. 1B6E0 #  r_INTGASIN
  5282. 1B6EA :: NS:CK%ASIN
  5283. 1B6EA @  Internal ASIN (1:%any -> 1:%/C%)
  5284. 1B6EF :: DUP%ABS>1NOT?case
  5285. 1B6EF @  If %ABS(%)>1 then SKIP else COLA (1:% -> 1:%)
  5286. 1B72F :: xACOS
  5287. 1B72F @  ACOS (XLIB 2 88) H:0CC
  5288. 1B75C rf rr_DERACOS
  5289. 1B761 rf r_RINVACOS
  5290. 1B766 rf rr_RULES10
  5291. 1B76B #  r_INTGACOS
  5292. 1B775 :: NS:CK%ACOS
  5293. 1B775 @  Internal ACOS (1:%any -> 1:%/C%)
  5294. 1B79C :: xATAN
  5295. 1B79C @  ATAN (XLIB 2 89) H:0CC
  5296. 1B7C9 rf rr_DERATAN
  5297. 1B7CE rf r_RINVATAN
  5298. 1B7D3 rf rr_RULES10
  5299. 1B7D8 #  r_INTGATAN
  5300. 1B7EB :: xASINH
  5301. 1B7EB @  ASINH (XLIB 2 90) H:0C8
  5302. 1B818 rf rr_DERASINH
  5303. 1B81D rf r_RINVASINH
  5304. 1B822 rf rr_RULES10
  5305. 1B830 :: xACOSH
  5306. 1B830 @  ACOSH (XLIB 2 91) H:0C8
  5307. 1B85D rf rr_DERACOSH
  5308. 1B862 rf r_RINVACOSH
  5309. 1B867 rf rr_RULES10
  5310. 1B86C :: NS:CK%ACOSH
  5311. 1B86C @  Internal ACOSH (1:%any -> 1:%/C%)
  5312. 1B8A2 :: xATANH
  5313. 1B8A2 @  ATANH (XLIB 2 92) H:0C8
  5314. 1B8CF rf rr_DERATANH
  5315. 1B8D4 rf r_RINVATANH
  5316. 1B8D9 rf rr_RULES10
  5317. 1B8DE :: NS:CK%ATANH
  5318. 1B8DE @  Internal ATANH (1:%any -> 1:%/C%)
  5319. 1B905 :: xEXP
  5320. 1B905 @  EXP (XLIB 2 93) H:0CC
  5321. 1B932 rf rr_DEREXP
  5322. 1B937 rf rr_RINVEXP
  5323. 1B93C rf rr_RULES4
  5324. 1B941 rf INTGEXP
  5325. 1B94F :: xLN
  5326. 1B94F @  LN (XLIB 2 94) H:0CC
  5327. 1B97C rf rr_DERLN
  5328. 1B981 rf r_RINVLN
  5329. 1B986 rf rr_RULES5
  5330. 1B98B #  r_INTGLN
  5331. 1B995 :: NS:CK%LN
  5332. 1B995 @  Internal LN (1:%any -> 1:%/C%)
  5333. 1B9C6 :: xLOG
  5334. 1B9C6 @  LOG (XLIB 2 95) H:0CC
  5335. 1B9F3 rf rr_DERLOG
  5336. 1B9F8 rf r_RINVLOG
  5337. 1B9FD rf rr_RULES5
  5338. 1BA02 #  r_INTGLOG
  5339. 1BA0C :: NS:CK%LOG
  5340. 1BA0C @  Internal LOG (1:%any -> 1:%/C%)
  5341. 1BA3D :: xALOG
  5342. 1BA3D @  ALOG (XLIB 2 96) H:0CC
  5343. 1BA6A rf rr_DERALOG
  5344. 1BA6F rf rr_RINVALOG
  5345. 1BA74 rf rr_RULES4
  5346. 1BA79 #  r_INTGALOG
  5347. 1BA8C :: xLNP1
  5348. 1BA8C @  LNP1 (XLIB 2 97) H:0C0
  5349. 1BAAF rf rr_DERLNP1
  5350. 1BAB4 rf r_RINVLNP1
  5351. 1BAC2 :: xEXPM1
  5352. 1BAC2 @  EXPM1 (XLIB 2 98) H:0C4
  5353. 1BAE5 rf rr_DEREXPM1
  5354. 1BAEA rf rr_RINVEXPM1
  5355. 1BAEF #  r_INTGEXPM1
  5356. 1BB02 :: x!
  5357. 1BB02 @  ! (XLIB 2 99) H:500
  5358. 1BB25 rf r_EXQR!
  5359. 1BB2A h# hex_A010
  5360. 1BB41 :: xFACT
  5361. 1BB41 @  FACT (XLIB 2 100) (Same prg as x!) H:000
  5362. 1BB6D :: xIP
  5363. 1BB6D @  IP (XLIB 2 101) H:000
  5364. 1BBA3 :: xFP
  5365. 1BBA3 @  FP (XLIB 2 102) H:000
  5366. 1BBD9 :: xFLOOR
  5367. 1BBD9 @  FLOOR (XLIB 2 103) H:000
  5368. 1BC0F :: xCEIL
  5369. 1BC0F @  CEIL (XLIB 2 104) H:000
  5370. 1BC45 :: xXPON
  5371. 1BC45 @  XPON (XLIB 2 105) H:000
  5372. 1BC71 :: xMAX
  5373. 1BC71 @  MAX (XLIB 2 106) H:000
  5374. 1BCE3 :: xMIN
  5375. 1BCE3 @  MIN (XLIB 2 107) H:000
  5376. 1BD55 :: xRND
  5377. 1BD55 @  RND (XLIB 2 108) H:000
  5378. 1BDBE rf r_sNOP
  5379. 1BDC3 rf r_sNOP
  5380. 1BDD1 :: xTRNC
  5381. 1BDD1 @  TRNC (XLIB 2 109) H:000
  5382. 1BE3A rf r_sNOP
  5383. 1BE3F rf r_sNOP
  5384. 1BE4D :: xMOD
  5385. 1BE4D @  MOD (XLIB 2 110) H:100
  5386. 1BE84 h# hex_80108
  5387. 1BE9C :: xMANT
  5388. 1BE9C @  MANT (XLIB 2 111) H:000
  5389. 1BEC8 :: xD>R
  5390. 1BEC8 @  D->R (XLIB 2 112) H:000
  5391. 1BEF4 :: xR>D
  5392. 1BEF4 @  R->D (XLIB 2 113) H:000
  5393. 1BF1E :: x>HMS
  5394. 1BF1E @  ->HMS (XLIB 2 114)
  5395. 1BF3E :: xHMS>
  5396. 1BF3E @  HMS-> (XLIB 2 115)
  5397. 1BF5E :: xHMS+
  5398. 1BF5E @  HMS+ (XLIB 2 116)
  5399. 1BF7E :: xHMS-
  5400. 1BF7E @  HMS- (XLIB 2 117)
  5401. 1BF9E :: xRNRM
  5402. 1BF9E @  RNRM (XLIB 2 118)
  5403. 1BFBE :: xCNRM
  5404. 1BFBE @  CNRM (XLIB 2 119)
  5405. 1BFDE :: xDET
  5406. 1BFDE @  DET (XLIB 2 120)
  5407. 1BFFE :: xDOT
  5408. 1BFFE @  DOT (XLIB 2 121)
  5409. 1C01E :: xCROSS
  5410. 1C01E @  CROSS (XLIB 2 122)
  5411. 1C03E :: xRSD
  5412. 1C03E @  RSD (XLIB 2 123)
  5413. 1C060 :: x%
  5414. 1C060 @  % (XLIB 2 124) H:000
  5415. 1C0B5 :: SWAPUM%
  5416. 1C0B5 @  Internal % (2:% 1:Unit -> 1:%)
  5417. 1C0D7 :: x%T
  5418. 1C0D7 @  %T (XLIB 2 125) H:000
  5419. 1C149 :: x%CH
  5420. 1C149 @  %CH (XLIB 2 126) H:000
  5421. 1C1B9 :: xRAND
  5422. 1C1B9 @  RAND (XLIB 2 127)
  5423. 1C1D4 :: xRDZ
  5424. 1C1D4 @  RDZ (XLIB 2 128)
  5425. 1C1F6 :: xCOMB
  5426. 1C1F6 @  COMB (XLIB 2 129) H:000
  5427. 1C236 :: xPERM
  5428. 1C236 @  PERM (XLIB 2 130) H:000
  5429. 1C274 :: xSF
  5430. 1C274 @  SF (XLIB 2 131)
  5431. 1C28D :: %SF
  5432. 1C28D @  Internal SF (1:% ->)
  5433. 1C2B0 :: %ABSCOERCE%0>
  5434. 1C2B0 @  Abscoerces % & checks if %>0 (1:% -> 2:# 1:T/F )
  5435. 1C2D5 :: xCF
  5436. 1C2D5 @  CF (XLIB 2 132)
  5437. 1C2EE :: %CF
  5438. 1C2EE @  Internal CF (1:% ->)
  5439. 1C313 :: xFS?
  5440. 1C313 @  FS? (XLIB 2 133)
  5441. 1C32C :: %FS?
  5442. 1C32C @  Internal FS? (1:% -> 1:%)
  5443. 1C331 :: FS?
  5444. 1C331 @  Internal FS? (1:% -> 1:T/F)
  5445. 1C360 :: xFC?
  5446. 1C360 @  FC? (XLIB 2 134)
  5447. 1C379 :: %FC?
  5448. 1C379 @  Internal FC? (1:% -> 1:%)
  5449. 1C399 :: xDEG
  5450. 1C399 @  DEG (XLIB 2 135)
  5451. 1C3B4 :: xRAD
  5452. 1C3B4 @  RAD (XLIB 2 136)
  5453. 1C3CF :: xGRAD
  5454. 1C3CF @  GRAD (XLIB 2 137)
  5455. 1C3EA :: xFIX
  5456. 1C3EA @  FIX (XLIB 2 138)
  5457. 1C403 :: %FIX
  5458. 1C403 @  Internal FIX (1:% ->)
  5459. 1C41E :: xSCI
  5460. 1C41E @  SCI (XLIB 2 139)
  5461. 1C437 :: %SCI
  5462. 1C437 @  Internal SCI (1:% ->)
  5463. 1C452 :: xENG
  5464. 1C452 @  ENG (XLIB 2 140)
  5465. 1C46B :: %ENG
  5466. 1C46B @  Internal ENG (1:% ->)
  5467. 1C486 :: xSTD
  5468. 1C486 @  STD (XLIB 2 141)
  5469. 1C4A1 :: xFS?C
  5470. 1C4A1 @  FS?C (XLIB 2 142)
  5471. 1C4BA :: %FS?C
  5472. 1C4BA @  Internal FS?C (1:% -> 1:%)
  5473. 1C4BF :: FS?C
  5474. 1C4BF @  Internal FS?C (1:% -> 1:T/F)
  5475. 1C4CE :: UserFS?C
  5476. 1C4CE @  User flag set? and clear (1:# -> 1:T/F)
  5477. 1C4EC :: SystFS?C
  5478. 1C4EC @  System flag set? and clear (1:# -> 1:T/F)
  5479. 1C520 :: xFC?C
  5480. 1C520 @  FC?C (XLIB 2 143)
  5481. 1C539 :: %FC?C
  5482. 1C539 @  Internal FC?C (1:% -> 1:%)
  5483. 1C559 :: xBIN
  5484. 1C559 @  BIN (XLIB 2 144)
  5485. 1C574 :: xDEC
  5486. 1C574 @  DEC (XLIB 2 145)
  5487. 1C58F :: xHEX
  5488. 1C58F @  HEX (XLIB 2 146)
  5489. 1C5AA :: xOCT
  5490. 1C5AA @  OCT (XLIB 2 147)
  5491. 1C5C5 :: xSTWS
  5492. 1C5C5 @  STWS (XLIB 2 148)
  5493. 1C5DE :: HXSSTWS
  5494. 1C5DE @  Internal STWS (1:HXS ->)
  5495. 1C5FE :: xRCWS
  5496. 1C5FE @  RCWS (XLIB 2 149)
  5497. 1C619 :: xRCLF
  5498. 1C619 @  RCLF (XLIB 2 150)
  5499. 1C637 P  HP:RCLSYSF
  5500. 1C637 @  Recall System Flags (-> 1:HXS)
  5501. 1C64E P  NS:RCLUSERF
  5502. 1C64E @  Recall User Flags (-> 1:HXS)
  5503. 1C67F :: HP:xSTOF
  5504. 1C67F @  STOF (XLIB 2 151)
  5505. 1C6A2 :: {}STOF
  5506. 1C6A2 @  Internal STOF (1:{} ->)
  5507. 1C6CF :: HXSSTOF
  5508. 1C6CF @  Internal STOF (2:HXSsystem 1:HXSuser ->)
  5509. 1C6E3 :: CKSYSSTOF
  5510. 1C6E3 @  Internal STOF (system) (1:HXS ->)
  5511. 1C6F7 P  USERSTOF
  5512. 1C6F7 @  Store user flags (1:HXS ->)
  5513. 1C731 P  SYSSTOF
  5514. 1C731 @  Store system flags (1:HXS ->) (Doesn't check changes in LASTARG flag)
  5515. 1C783 :: x>LIST
  5516. 1C783 @  ->LIST (XLIB 2 152)
  5517. 1C79E :: xR>C
  5518. 1C79E @  R->C (XLIB 2 153)
  5519. 1C7CA :: xRE
  5520. 1C7CA @  RE (XLIB 2 154) H:008
  5521. 1C80B rf rr_RULES7
  5522. 1C819 :: xIM
  5523. 1C819 @  IM (XLIB 2 155) H:008
  5524. 1C850 rf rr_RULES7
  5525. 1C85C :: xSUB
  5526. 1C85C @  SUB (XLIB 2 156)
  5527. 1C87A #  NS:##C55
  5528. 1C889 #  NS:##C22
  5529. 1C898 #  NS:##855
  5530. 1C8A7 #  NS:##822
  5531. 1C8BB :: %SUB$
  5532. 1C8BB @  Internal SUB (3:$ 2:% 1:% -> 1:$)
  5533. 1C8CF :: %{}SUB
  5534. 1C8CF @  Internal SUB (3:{} 2:% 1:% -> 1:{})
  5535. 1C8EA :: xREPL
  5536. 1C8EA @  REPL (XLIB 2 157)
  5537. 1C8F4 #  NS:##C5C
  5538. 1C903 #  NS:##C2C
  5539. 1C912 #  NS:##85C
  5540. 1C921 #  NS:##82C
  5541. 1C930 #  NS:##313
  5542. 1C93F #  NS:##515
  5543. 1C95A :: xLIST>
  5544. 1C95A @  LIST-> (XLIB 2 158)
  5545. 1C973 :: NS:INNERCOMP>%
  5546. 1C973 @  INNERCOMP & UNCOERCE (1:Comp -> N+1:...1:%n)
  5547. 1C98E :: xC>R
  5548. 1C98E @  C->R (XLIB 2 159)
  5549. 1C9B8 :: HP:xSIZE
  5550. 1C9B8 @  SIZE (XLIB 2 160)
  5551. 1CA0D :: NS:DROP%1
  5552. 1CA0D @  Internal DROP and 1
  5553. 1CA26 :: NS:LEN$>%
  5554. 1CA26 @  Internal SIZE (bytes) (1:$ -> 1:%)
  5555. 1CA3A :: NS:LENCOMP>%
  5556. 1CA3A @  Internal SIZE (1:comp -> 1:%)
  5557. 1CA4E :: NS:DIMLIMITS>%
  5558. 1CA4E @  Internal SIZE (1:[] -> 1:{% (%)})
  5559. 1CA62 :: GROBDIM>HXS
  5560. 1CA62 @  Internal SIZE (1:Grob -> 2:HXS 1:HXS)
  5561. 1CA85 :: SIZESECO
  5562. 1CA85 @  Internal SIZE (1:Program/PICT -> 1: %1 / 2:HXS 1:HXS)
  5563. 1CAB4 :: xPOS
  5564. 1CAB4 @  POS (XLIB 2 161)
  5565. 1CAD7 :: POS$>%
  5566. 1CAD7 @  Internal POS (2:$ 1:$ -> 1:%)
  5567. 1CAF0 :: EQUALPOSCOMP>%
  5568. 1CAF0 @  Internal POS (2:Comp 1:Any -> 1:%)
  5569. 1CB0B :: x>STR
  5570. 1CB0B @  ->STR (XLIB 2 162)
  5571. 1CB26 :: xSTR>
  5572. 1CB26 @  STR-> (XLIB 2 163)
  5573. 1CB46 :: xNUM
  5574. 1CB46 @  NUM (XLIB 2 164)
  5575. 1CB66 :: xCHR
  5576. 1CB66 @  CHR (XLIB 2 165)
  5577. 1CB86 :: xTYPE
  5578. 1CB86 @  TYPE (XLIB 2 166)
  5579. 1CB90 :: HP:XEQTYPE
  5580. 1CB90 @  Internal TYPE (1:Any -> 2:Any 1:%type)
  5581. 1CC03 %  HP:%11
  5582. 1CC1D %  HP:%12
  5583. 1CC37 %  HP:%13
  5584. 1CC51 %  HP:%14
  5585. 1CC6B %  HP:%20
  5586. 1CC85 %  HP:%15
  5587. 1CC9A #  <3Fh>
  5588. 1CCA4 %  HP:%21
  5589. 1CCB9 #  <4Fh>
  5590. 1CCC3 %  HP:%22
  5591. 1CCD8 #  NS:##5F
  5592. 1CCD8 #  lnkarry
  5593. 1CCE2 %  HP:%23
  5594. 1CCF7 #  <6Fh>
  5595. 1CCF7 #  char
  5596. 1CD01 %  HP:%24
  5597. 1CD16 #  NS:##7F
  5598. 1CD16 #  codeob
  5599. 1CD20 %  HP:%25
  5600. 1CD3A %  HP:%16
  5601. 1CD54 %  HP:%17
  5602. 1CD69 #  NS:##AF
  5603. 1CD69 #  libdata
  5604. 1CD73 %  HP:%26
  5605. 1CD8D %  HP:%27
  5606. 1CDB1 :: XEQTYPE[]
  5607. 1CDB1 @  Internal TYPE (1:[] -> 2:[] 1:%3 or %4)
  5608. 1CDD4 :: XEQTYPESECO
  5609. 1CDD4 @  Internal TYPE (1:seco -> 1:%8, %18 or %19)
  5610. 1CDF2 %  NS:%18
  5611. 1CE07 %  NS:%19
  5612. 1CE28 :: xVTYPE
  5613. 1CE28 @  VTYPE (XLIB 2 167)
  5614. 1CE55 :: NAMEVTYPE
  5615. 1CE55 @  Internal VTYPE (1:ID/LAM -> 1:%)
  5616. 1CE5F :: ?XEQTYPESWAPDROP
  5617. 1CE5F @  If True then (2:Ob 1:T -> 1:%type) else (2:Ob 1:F -> 2:Ob 1:%-1)
  5618. 1CE82 :: TAGVTYPE
  5619. 1CE82 @  Internal VTYPE (1:Tagged -> 1:%)
  5620. 1CE8C :: RCLTAGTRUE
  5621. 1CEA5 :: RCLTAGERRhandle
  5622. 1CEAF #  NS:##204
  5623. 1CEE3 :: xEQ>
  5624. 1CEE3 @  EQ-> (XLIB 2 168)
  5625. 1CF2E :: ALGEQ>
  5626. 1CF2E @  Internal EQ-> (1:ALG ->
  5627. 1CF42 :: NS:opzerpshargS
  5628. 1CF42 @  (Meta2&Meta1<op> -> ALG_Meta2 ALG_Meta1)
  5629. 1CF42 @  Example: A B + C D + * #7 -> 'A+B' 'C+D'
  5630. 1CF7B :: HP:xOBJ>
  5631. 1CF7B @  OBJ-> (XLIB 2 169)
  5632. 1CFD0 :: ALGOBJ>
  5633. 1CFD0 @  Internal OBJ-> (1:ALG -> Args 2:#Args 3:<op>)
  5634. 1D009 :: x>ARRY
  5635. 1D009 @  ->ARRY (XLIB 2 170)
  5636. 1D02C :: %>ARRY
  5637. 1D02C @  Internal ->ARRY (N+1...floats...1:%n -> 1:[])
  5638. 1D040 :: {}>ARRY
  5639. 1D040 @  Internal ->ARRY (...floats...1:{dims} -> 1:[])
  5640. 1D054 :: HP:XEQ>ARRAY
  5641. 1D054 @  Internal ->ARRY (...floats...1:{dims} -> 1:[])
  5642. 1D054 @  Faster than {}>ARRY (Drops some tests)
  5643. 1D092 :: xARRY>
  5644. 1D092 @  ARRY-> (XLIB 2 171)
  5645. 1D0AB :: ARRY>
  5646. 1D0AB @  Internal ARRY-> (1:[] -> ...1:{dims})
  5647. 1D0AB @  ( :: ONE_DO_ARRAY INDEX@ PULLEL SWAP LOOP DIMLIMITS UNCOERCE{}2 ;)
  5648. 1D0DF :: HP:xRDM
  5649. 1D0DF @  RDM (XLIB 2 172)
  5650. 1D10C :: RDM
  5651. 1D10C @  Internal RDM (2:[] 1:{} -> 1:[])
  5652. 1D125 :: IDRDM
  5653. 1D125 @  Internal RDM (2:ID 1:{})
  5654. 1D152 :: LAMRDM
  5655. 1D152 @  Internal RDM (2:LAM 1:{})
  5656. 1D186 :: HP:xCON
  5657. 1D186 @  CON (XLIB 2 173)
  5658. 1D1D6 #  <72h>
  5659. 1D1EA :: {}CON
  5660. 1D1EA @  Internal CON (2:{%dims} 1:%/C% -> 1:[])
  5661. 1D221 :: MATC%CON
  5662. 1D221 @  Internal CON (2:[] 1:C% -> 1:[])
  5663. 1D23F :: ID%CON%
  5664. 1D23F @  Internal CON (2:ID 1:%)
  5665. 1D262 :: IDC%CON
  5666. 1D262 @  Internal CON (2:ID 1:C%)
  5667. 1D28A :: LAM%CON
  5668. 1D28A @  Internal CON (2:LAM 1:%)
  5669. 1D2AD :: LAMC%CON
  5670. 1D2AD @  Internal CON (2:LAM 1:C%)
  5671. 1D2DC :: xIDN
  5672. 1D2DC @  IDN (XLIB 2 174)
  5673. 1D313 :: %IDN
  5674. 1D313 @  Internal IDN (1:% -> 1:[])
  5675. 1D34A :: IDIDN
  5676. 1D34A @  Internal IDN (1:ID)
  5677. 1D36D :: LAMIDN
  5678. 1D36D @  Internal IDN (1:LAM)
  5679. 1D392 :: xTRN
  5680. 1D392 @  TRN (XLIB 2 175)
  5681. 1D3BF :: IDTRN
  5682. 1D3BF @  Internal TRN (1:ID)
  5683. 1D3E2 :: LAMTRN
  5684. 1D3E2 @  Internal TRN (1:LAM)
  5685. 1D407 :: xPUT
  5686. 1D407 @  PUT (XLIB 2 176)
  5687. 1D42F #  NS:##750
  5688. 1D448 #  NS:##710
  5689. 1D484 :: IDPUT
  5690. 1D484 @  Internal PUT (3:ID 2:%/{} 1:Any)
  5691. 1D4DE :: []PUT
  5692. 1D4DE @  Internal PUT (3:[] 2:%/{} 1:%/C%)
  5693. 1D501 :: IDMATPUTSTO
  5694. 1D501 @  (4:ID 3:[] 2:{}/% 1:%/C%)
  5695. 1D524 :: {}PUT
  5696. 1D524 @  Internal PUT (3:{} 2:%/{} 1:Any)
  5697. 1D54C :: ID{}PUTSTO
  5698. 1D54C @  (4:ID 3:{} 2:{}/% 1:Any)
  5699. 1D565 :: LAMPUT
  5700. 1D565 @  Internal PUT (3:LAM 2:%/{} 1:Any)
  5701. 1D5BF :: []PUTSWAPSAFESTO
  5702. 1D5DF :: HP:xPUTI
  5703. 1D5DF @  PUTI (XLIB 2 177)
  5704. 1D611 #  <750h>
  5705. 1D620 #  <710h>
  5706. 1D65C :: IDPUTI
  5707. 1D65C @  Internal PUTI (3:ID 2:%/{} 1:Any)
  5708. 1D6B6 :: []PUTI
  5709. 1D6B6 @  Internal PUTI (3:[] 2:%/{} 1:%/C%)
  5710. 1D6DE :: IDMATPUTISTO
  5711. 1D701 :: {}PUTI
  5712. 1D701 @  Internal PUTI (3:{} 2:%/{} 1:Any)
  5713. 1D729 :: ID{}PUTISTO
  5714. 1D747 :: LAMPUTI
  5715. 1D747 @  Internal PUTI (3:LAM,2:%/List,1:Any)
  5716. 1D7A1 :: []PUTISWAP3PICKSAFESTO
  5717. 1D7C6 :: xGET
  5718. 1D7C6 @  GET (XLIB 2 178)
  5719. 1D825 :: NAMEGET
  5720. 1D825 @  Internal GET (2:ID/LAM, 1:%/{})
  5721. 1D86B :: CK[]GET
  5722. 1D86B @  Internal GET (2:[] 1:%/{})
  5723. 1D875 :: []GET
  5724. 1D898 :: CK{}GET
  5725. 1D898 @  Internal GET (2:{} 1:%/{})
  5726. 1D8A2 :: {}GET
  5727. 1D8C7 :: xGETI
  5728. 1D8C7 @  GETI (XLIB 2 179)
  5729. 1D926 :: NAMEGETI
  5730. 1D926 @  Internal GETI (2:ID/LAM,1:%/List)
  5731. 1D96C :: CK[]GETI
  5732. 1D96C @  Internal GETI (2:Array,1:%/List)
  5733. 1D976 :: []GETI
  5734. 1D9A8 :: []GETIROTDROP
  5735. 1D9BC :: {}GETI
  5736. 1D9BC @  Internal GETI (2:List,1:%/List)
  5737. 1D9E9 :: {}GETIROTDROP
  5738. 1DA02 :: CK[]PUTIWRAP
  5739. 1DA20 ::
  5740. 1DA48 ::
  5741. 1DA75 :: 3DROPONEDUPSetIndexWrapFlag
  5742. 1DA93 ::
  5743. 1DABB :: HP:#1+ROT
  5744. 1DAED :: CK{}PUTIWRAP
  5745. 1DB29 :: #=ITE_DROP%1SetIndexWrapFlag_#1+UNCOERCE
  5746. 1DB33 :: %1SetIndexWrapFlag
  5747. 1DB5B :: No{}Element?ERR_COERCE
  5748. 1DB6F :: INNER#1<>?ERR
  5749. 1DB6F @  INNERCOMP, if size <> #1 then SIZEERR
  5750. 1DBB0 :: CKREFUNROTPUTEL
  5751. 1DBC9 :: CKNEWOBUNROTPUTELDROP
  5752. 1DBD8 :: MakeNEWContentsSWAPDROP
  5753. 1DC00 :: HP:PUTLIST
  5754. 1DC00 @  PUTI (3:Ob 2:#n 1:{} -> 1:{} )
  5755. 1DC00 @  Works for other composites too, if you change the prolog afterwards
  5756. 1DC55 :: UNROTNOElement#?ERR_SWAP
  5757. 1DC6E :: NOElement#?ERR
  5758. 1DC6E @  (2:[] 1:{xloc (yloc)} / %loc -> 2:[] 1:#loc) (xloc & yloc ->NUMmable) 
  5759. 1DC7D :: NO{}Element#?ERR
  5760. 1DC7D @  (2:[] 1:{xloc (yloc)} -> 2:[] 1:#loc) (xloc & yloc ->NUMmable) 
  5761. 1DCC3 :: CKPUTMATMATCH
  5762. 1DCC3 @  Checks that (3:[] 2:Any 1:%/C%) stk1 is of right type to put in [] 
  5763. 1DCDC :: NS:NOT?Re>C%
  5764. 1DD06 :: xV>
  5765. 1DD06 @  V-> (XLIB 2 180)
  5766. 1DD29 :: C%V>
  5767. 1DD29 @  Internal V-> (1:C%)
  5768. 1DD3D :: []V>
  5769. 1DD3D @  Internal V-> (1:[])
  5770. 1DD51 :: []V>%%
  5771. 1DDC4 ::
  5772. 1DDEC :: 2@REVALSWAP2@REVALSWAP
  5773. 1DE19 :: VC%>%%
  5774. 1DE28 ::
  5775. 1DE66 :: x>V2
  5776. 1DE66 @  ->V2 (XLIB 2 181)
  5777. 1DE7F :: >V2
  5778. 1DE7F @  Internal ->V2 (2:% 1:%)
  5779. 1DEC2 :: x>V3
  5780. 1DEC2 @  ->V3 (XLIB 2 182)
  5781. 1DEDB :: >V3
  5782. 1DEDB @  Internal ->V3 (3:%,2:%,1:%)
  5783. 1DEEF :: CurvCoords
  5784. 1DEEF @  Internal (3:% 2:% 1:% -> 3:% 2:% 1:%) 
  5785. 1DEEF @  If spherical flag on then %SPH>%REC, else %3DPOL>%REC
  5786. 1DF03 :: %3DPOL>%REC
  5787. 1DF03 @  Polar coords to rectangular (3D) (3:% 2:% 1:% -> 3:% 2:% 1:%)
  5788. 1DF30 :: CKReFLOATS>1LAM
  5789. 1DF30 @  If stk3 is NULLCOMP then SIZEERR else (3:comp 2:Ob2 1:Ob1 ->)
  5790. 1DF30 @  4LAM: Ob2    3LAM:Ob1    2LAM:Last Unit in comp
  5791. 1DF30 @  1LAM: {%:NOP C%:C%>Re Unit:U>nbr} are the operations done
  5792. 1DF30 @      If not all comp obs of above types (After CRUNCH) then ERROR
  5793. 1DF30 @  Ex: :: DUPDUP CKREFLOATS>1LAM 1GETABND ; ensures you get a real list
  5794. 1DF71 :: ForceReal
  5795. 1DF71 @  CRUNCH, then does C%>Re, U>Nbr or NOP (%) (else error) & DUP2PUTLAM
  5796. 1DF9E :: DUP2PUTLAMU>nbr
  5797. 1DFDF :: CKDIM{}stk1REALS
  5798. 1DFDF @  Converts all entries (CRUNCH C%>Re etc) in {} to reals (Error if..)
  5799. 1DFDF @  (2:Any 1:%/{} -> 2:Any 1:%/{})
  5800. 1E00C :: CKDIM{}stk2REALS
  5801. 1E00C @  Converts all entries (CRUNCH C%>Re etc) in {} to reals (Error if..)
  5802. 1E00C @  (3:Any 2:%/{} 1:Any -> 3:Any 2:%/{} 1:Any)
  5803. 1E04A :: xINDEP
  5804. 1E04A @  INDEP (XLIB 2 183)
  5805. 1E07E :: xPMIN
  5806. 1E07E @  PMIN (XLIB 2 184)
  5807. 1E09E :: xPMAX
  5808. 1E09E @  PMAX (XLIB 2 185)
  5809. 1E0BE :: xAXES
  5810. 1E0BE @  AXES (XLIB 2 186)
  5811. 1E0E8 :: xCENTR
  5812. 1E0E8 @  CENTR (XLIB 2 187)
  5813. 1E101 :: %CENTR
  5814. 1E101 @  Internal CENTR (1:%)
  5815. 1E126 :: xRES
  5816. 1E126 @  RES (XLIB 2 188)
  5817. 1E150 :: x*H
  5818. 1E150 @  *H (XLIB 2 189)
  5819. 1E170 :: x*W
  5820. 1E170 @  *W (XLIB 2 190)
  5821. 1E190 :: xDRAW
  5822. 1E190 @  DRAW (XLIB 2 191)
  5823. 1E1AB :: xAUTO
  5824. 1E1AB @  AUTO (XLIB 2 192)
  5825. 1E1C6 :: xDRAX
  5826. 1E1C6 @  DRAX (XLIB 2 193)
  5827. 1E1E1 :: xSCALE
  5828. 1E1E1 @  SCALE (XLIB 2 194)
  5829. 1E201 :: xPDIM
  5830. 1E201 @  PDIM (XLIB 2 195)
  5831. 1E22B :: xDEPND
  5832. 1E22B @  DEPND (XLIB 2 196)
  5833. 1E25F :: xERASE
  5834. 1E25F @  ERASE (XLIB 2 197)
  5835. 1E27A :: xPX>C
  5836. 1E27A @  PX->C (XLIB 2 198)
  5837. 1E29A :: xC>PX
  5838. 1E29A @  C->PX (XLIB 2 199)
  5839. 1E2BA :: xGRAPH
  5840. 1E2BA @  GRAPH (XLIB 2 200)
  5841. 1E2D5 :: xLABEL
  5842. 1E2D5 @  LABEL (XLIB 2 201)
  5843. 1E2F0 :: xPVIEW
  5844. 1E2F0 @  PVIEW (XLIB 2 202)
  5845. 1E31A :: xPIXON
  5846. 1E31A @  PIXON (XLIB 2 203)
  5847. 1E344 :: xPIXOFF
  5848. 1E344 @  PIXOFF (XLIB 2 204)
  5849. 1E36E :: xPIX?
  5850. 1E36E @  PIX? (XLIB 2 205)
  5851. 1E398 :: xLINE
  5852. 1E398 @  LINE (XLIB 2 206)
  5853. 1E3C2 :: xTLINE
  5854. 1E3C2 @  TLINE (XLIB 2 207)
  5855. 1E3EC :: xBOX
  5856. 1E3EC @  BOX (XLIB 2 208)
  5857. 1E416 :: xBLANK
  5858. 1E416 @  BLANK (XLIB 2 209)
  5859. 1E436 :: xPICT
  5860. 1E436 @  PICT (XLIB 2 210) (:: CK0 ' xPICT ;)
  5861. 1E456 :: xGOR
  5862. 1E456 @  GOR (XLIB 2 211)
  5863. 1E460 #  <C5Ch>
  5864. 1E46A :: GORGROB{}
  5865. 1E46A @  Internal GOR (3:Grob 2:{} 1:Grob)
  5866. 1E47E #  <C2Ch>
  5867. 1E488 :: GORGROBC%
  5868. 1E488 @  Internal GOR (3:Grob 2:C% 1:Grob)
  5869. 1E49C #  <85Ch>
  5870. 1E4A6 :: GORPICT{}
  5871. 1E4A6 @  Internal GOR (3:PICT 2:{} 1:Grob)
  5872. 1E4BA #  <82Ch>
  5873. 1E4C4 :: GORPICTC%
  5874. 1E4C4 @  Internal GOR (3:PICT 2:C% 1:Grob)
  5875. 1E4E4 :: xGXOR
  5876. 1E4E4 @  GXOR (XLIB 2 212)
  5877. 1E4EE #  <C5Ch>
  5878. 1E4F8 :: GXORGROB{}
  5879. 1E50C #  <C2Ch>
  5880. 1E516 :: GXORGROBC%
  5881. 1E52A #  <85Ch>
  5882. 1E534 :: GXORPICT{}
  5883. 1E548 #  <82Ch>
  5884. 1E552 :: GXORPICTC%
  5885. 1E572 :: xLCD>
  5886. 1E572 @  LCD-> (XLIB 2 213)
  5887. 1E58D :: x>LCD
  5888. 1E58D @  ->LCD (XLIB 2 214)
  5889. 1E5AD :: x>GROB
  5890. 1E5AD @  ->GROB (XLIB 2 215)
  5891. 1E5B7 #  <1h>
  5892. 1E5D2 :: xARC
  5893. 1E5D2 @  ARC (XLIB 2 216)
  5894. 1E5DC #  <2111h>
  5895. 1E5EB #  <5B11h>
  5896. 1E606 :: xTEXT
  5897. 1E606 @  TEXT (XLIB 2 217)
  5898. 1E621 :: xXRNG
  5899. 1E621 @  XRNG (XLIB 2 218)
  5900. 1E641 :: xYRNG
  5901. 1E641 @  YRNG (XLIB 2 219)
  5902. 1E661 :: HP:xFUNCTION
  5903. 1E661 @  FUNCTION (XLIB 2 220)
  5904. 1E681 :: xCONIC
  5905. 1E681 @  CONIC (XLIB 2 221)
  5906. 1E6A1 :: HP:xPOLAR
  5907. 1E6A1 @  POLAR (XLIB 2 222)
  5908. 1E6C1 :: HP:xPARAMETRIC
  5909. 1E6C1 @  PARAMETRIC (XLIB 2 223)
  5910. 1E6E1 :: xTRUTH
  5911. 1E6E1 @  TRUTH (XLIB 2 224)
  5912. 1E701 :: xSCATTER
  5913. 1E701 @  SCATTER (XLIB 2 225)
  5914. 1E721 :: xHISTOGRAM
  5915. 1E721 @  HISTOGRAM (XLIB 2 226)
  5916. 1E741 :: xBAR
  5917. 1E741 @  BAR (XLIB 2 227)
  5918. 1E761 :: xSAME
  5919. 1E761 @  SAME (XLIB 2 228) (:: EQUAL COERCEFLAG ;)
  5920. 1E783 :: xAND
  5921. 1E783 @  AND (XLIB 2 229) H:100
  5922. 1E7CE h# hex_50105
  5923. 1E7DD :: %AND
  5924. 1E7DD @  Internal AND (2:% 1:% -> 1:%)
  5925. 1E809 :: xOR
  5926. 1E809 @  OR (XLIB 2 230) H:100
  5927. 1E854 h# hex_40104
  5928. 1E863 :: %OR
  5929. 1E863 @  Internal OR (2:%,1:%)
  5930. 1E88F :: xNOT
  5931. 1E88F @  NOT (XLIB 2 231) H:500
  5932. 1E8C6 rf EQWRNOT
  5933. 1E8CB h# hex_0105
  5934. 1E8D9 :: %NOT
  5935. 1E8D9 :: #0=COERCEFLAG
  5936. 1E8D9 @  Internal NOT (1:%)
  5937. 1E8F6 :: xXOR
  5938. 1E8F6 @  XOR (XLIB 2 232) H:100
  5939. 1E941 rf rhex_40104
  5940. 1E946 :: %XOR
  5941. 1E946 @  Internal XOR (2:%,1:%)
  5942. 1E972 :: x==
  5943. 1E972 @  == (XLIB 2 233) (Last default is EQUAL>%) H:100
  5944. 1EA21 h# hex_60106
  5945. 1EA30 :: EQUAL>%
  5946. 1EA30 @  Internal == (2:Any 1:Any -> 1:%)
  5947. 1EA44 :: STRIPTAGS==
  5948. 1EA44 @  Internal == (2:Tagged/Any,1:Tagged/Any)
  5949. 1EA6C :: %==C%
  5950. 1EA6C @  Internal == (2:%,1:C% -> 1:%)
  5951. 1EA76 :: C%==%
  5952. 1EA76 @  Internal == (2:C%,1:% -> 1:%)
  5953. 1EA9D :: x<>
  5954. 1EA9D @  <> (XLIB 2 234) H:100
  5955. 1EB4C rf rhex_60106
  5956. 1EB51 :: EQUALNOT>%
  5957. 1EB51 @  Internal <> (2:Any,1:Any -> 1:%)
  5958. 1EB65 :: STRIPTAGS<>
  5959. 1EB65 @  Internal <> (2:Tagged/Any,1:Tagged/Any)
  5960. 1EB8D :: %<>C%
  5961. 1EB8D @  Internal <> (2:%,1:C% -> 1:%)
  5962. 1EB97 :: C%<>%
  5963. 1EB97 @  Internal <> (2:C%,1:% -> 1:%)
  5964. 1EBBE :: HP:x<?
  5965. 1EBBE @  < (XLIB 2 235) H:100
  5966. 1EC3B rf rhex_60106
  5967. 1EC40 :: %<UNCOERCE
  5968. 1EC40 @  Internal < (2:%,1:% -> 1:%)
  5969. 1EC5D :: HP:x>?
  5970. 1EC5D @  > (XLIB 2 236) H:100
  5971. 1ECDA rf rhex_60106
  5972. 1ECDF :: %>UNCOERCE
  5973. 1ECDF @  Internal > (2:%,1:% -> 1:%)
  5974. 1ECFC :: x<=
  5975. 1ECFC @  <= (XLIB 2 237) H:100
  5976. 1ED79 rf rhex_60106
  5977. 1ED7E :: %<=UNCOERCE
  5978. 1ED7E @  Internal <= (2:%,1:%)
  5979. 1ED9B :: x>=
  5980. 1ED9B @  >= (XLIB 2 238) H:100
  5981. 1EE18 rf rhex_60106
  5982. 1EE1D :: %>=UNCOERCE
  5983. 1EE1D @  Internal >= (2:%,1:%)
  5984. 1EE38 :: xOLDPRT
  5985. 1EE38 @  OLDPRT (XLIB 2 239)
  5986. 1EE53 :: xPR1
  5987. 1EE53 @  PR1 (XLIB 2 240)
  5988. 1EE6E :: xPRSTC
  5989. 1EE6E @  PRSTC (XLIB 2 241)
  5990. 1EE89 :: xPRST
  5991. 1EE89 @  PRST (XLIB 2 242)
  5992. 1EEA4 :: xCR
  5993. 1EEA4 @  CR (XLIB 2 243)
  5994. 1EEBF :: xPRVAR
  5995. 1EEBF @  PRVAR (XLIB 2 244)
  5996. 1EEEC :: PRVARTAG
  5997. 1EEEC @  Internal PRVAR (1:Tagged)
  5998. 1EF1E :: PRVAR{}
  5999. 1EF1E @  Internal PRVAR (1:List)
  6000. 1EF43 :: xDELAY
  6001. 1EF43 @  DELAY (XLIB 2 245)
  6002. 1EF63 :: xPRLCD
  6003. 1EF63 @  PRLCD (XLIB 2 246)
  6004. 1EF7E :: xrpnDER
  6005. 1EF7E @  delta (complete derivative) (XLIB 2 247) H:E
  6006. 1EFBF rf r_EQWRDER
  6007. 1EFC4 rf r_xDER
  6008. 1EFD2 :: xDER
  6009. 1EFD2 @  delta (stepwise derivative) (XLIB 2 248) H:5A7
  6010. 1F009 rf r_EQWRDER
  6011. 1F00E h# hex_0134250
  6012. 1F01F rf rr_DERDER
  6013. 1F024 #  MAKEDER
  6014. 1F02E #  r_INTGDER
  6015. 1F038 #  r_WHEREDER
  6016. 1F042 rf r_FORMDER
  6017. 1F047 :: NS:2DROP%0
  6018. 1F047 @  Internal DROP2 and push 0
  6019. 1F05B P  HP:CKSYMBTYPE
  6020. 1F05B @  A 1 element (ID/LAM) Algebraic? (Like ALG_X) (1:Any -> 1:Any)
  6021. 1F0F5 :: CKstepDER
  6022. 1F0F5 @  Internal stepwise der (2:ALG_var 1:sym) (Does CKSYMBTYPE on stk2)
  6023. 1F113 :: SWAPCKSYMBTYPE2DROP%0
  6024. 1F113 @  (2:ALG_var 1:Any -> 1:%0 , CKSYMBTYPE done on stk2
  6025. 1F133 :: xRCEQ
  6026. 1F133 @  RCEQ (XLIB 2 249)
  6027. 1F14E :: xSTEQ
  6028. 1F14E @  STEQ (XLIB 2 250)
  6029. 1F16E :: xROOT
  6030. 1F16E @  ROOT (XLIB 2 251)
  6031. 1F1D4 :: xrpnINTEGRAL
  6032. 1F1D4 @  integral (stack syntax) (XLIB 2 252) H:E
  6033. 1F1F7 rf EQWRINTG
  6034. 1F1FC rf r_INTEGRAL
  6035. 1F201 :: NS:NAMEINTEG
  6036. 1F201 @  Internal integral (stack syntax) (1:ID/LAM)
  6037. 1F223 :: xINTEGRAL
  6038. 1F223 @  integral (algebraic syntax) (XLIB 2 253) H:5A7
  6039. 1F23C rf r_EQWRINTG
  6040. 1F241 h# hex_014060626350
  6041. 1F257 #  r_DERINTG
  6042. 1F25C #  r_MAKEINTG
  6043. 1F266 rf r_INTGINTG
  6044. 1F26B #  r_WHEREINTG
  6045. 1F275 rf r_FORMINTG
  6046. 1F27A :: NS:ALGINTEG
  6047. 1F27A @  Internal integral (algebraic syntax) (1:ALG)
  6048. 1F2C9 :: xSUM
  6049. 1F2C9 @  Sigma (XLIB 2 254) H:5A3
  6050. 1F2D3 #  <A110h>
  6051. 1F2E2 #  <AA10h>
  6052. 1F2F1 #  <A1A0h>
  6053. 1F300 #  <AAA0h>
  6054. 1F314 rf r_EQWRSUM
  6055. 1F319 h# hex_014370606250
  6056. 1F32F rf rr_DERSUM
  6057. 1F334 #  r_MAKESUM
  6058. 1F33E #  r_WHERESUM
  6059. 1F348 rf r_FORMSUM
  6060. 1F354 :: xrpnWHERE
  6061. 1F354 @  | (stack syntax) (XLIB 2 255) H:E
  6062. 1F381 rf r_EQWRWHERE
  6063. 1F386 rf r_WHERE
  6064. 1F38B :: rpnWHERE
  6065. 1F38B @  Internal | (stack syntax) (2:sym 1:{ID newID ID newID...})
  6066. 1F3F3 :: xWHERE
  6067. 1F3F3 @  | (algebraic syntax) (XLIB 2 256) H:5A3
  6068. 1F407 rf r_EQWRWHERE
  6069. 1F40C h# hex_2214370B50
  6070. 1F420 rf rr_DERWHERE
  6071. 1F425 rf r_xWHERE
  6072. 1F42A #  r_WHEREWHERE
  6073. 1F434 rf r_FORMWHERE
  6074. 1F439 :: CKSYMBWHERE
  6075. 1F439 @  Internal | (N+2:sym..3:ID 2:newID 1:#n) (#n is changes*2+1)
  6076. 1F439 @  Changes sym to ALG, IDs to ALG_IDs & Checks they're valid
  6077. 1F43E :: CKSYMBWHEREargs
  6078. 1F4CA :: symcomppshob
  6079. 1F4CA @  (Meta Ob -> Ob&Meta) where Ob prolog is changed to ALG
  6080. 1F500 :: xQUOTE
  6081. 1F500 @  QUOTE (XLIB 2 257) H:121
  6082. 1F523 h# hex_014250
  6083. 1F533 #  rr_MAKEQUOTE
  6084. 1F53D rf r_FORMQUOTE
  6085. 1F542 :: QUOTE
  6086. 1F542 @  Internal QUOTE (1:ALG -> 1:ALG) (Explodes & puts back again)
  6087. 1F55D :: xrpnAPPLY
  6088. 1F55D @  APPLY (stack syntax) (XLIB 2 258) H:A
  6089. 1F580 rf r_xAPPLY
  6090. 1F585 :: CKLEN&ArgsAPPLY
  6091. 1F585 @  Internal APPLY (stack syntax) (2:{} 1:ID/LAM -> 1:ALG_ID(args) )
  6092. 1F5C5 :: xAPPLY
  6093. 1F5C5 @  APPLY (algebraic syntax) (XLIB 2 259) H:181
  6094. 1F5D9 h# hex_014360950
  6095. 1F5EC rf rr_DERAPPLY
  6096. 1F5F1 rf r_FORMAPPLY
  6097. 1F5F6 :: APPLY
  6098. 1F5F6 @  (N+1:ALG_name N:arg 1st...2:arg last 1:#n -> 1:ALG_ID(args))
  6099. 1F640 :: HP:xFCNAPPLY
  6100. 1F640 @  XLIB 2 260 (Won't show on screen ("")) H:4A2
  6101. 1F640 @  ..args 2:ALG_ID 1:#args -> 1:ALG_ID(args)
  6102. 1F6C2 rf r_EQWRFCNAPPLY
  6103. 1F6C7 rf r_DERFCNAPPLY
  6104. 1F6CC #  r_MAKEAPPLY
  6105. 1F6D6 #  r_WHEREAPPLY
  6106. 1F6E0 :: FREEVARAPPLY
  6107. 1F6E0 @  (..args 1:ID/LAM -> 1:ALG_name(args) (#Args in 1LAM & Name not used)
  6108. 1F758 :: CKUSEDsecoVARAPPLY
  6109. 1F776 :: CKUSED{}VARAPPLY
  6110. 1F7C1 :: CKUSED[]VARAPPLY
  6111. 1F81B ::
  6112. 1F86B :: CKUSEDrompVARAPPLY
  6113. 1F870 ::
  6114. 1F8CF :: STOALG
  6115. 1F8CF @  Internal STO (2:Any 1:ALG)
  6116. 1F8DE ::
  6117. 1F960 {} LAM{'num}
  6118. 1F96F l' LAM_'num
  6119. 1F97E l' LAM_'fcn
  6120. 1F996 :: NS:COMPLEXDUMMY
  6121. 1F996 @  XLIB 2 261 ( :: CK2&Dispatch ; ) H:000
  6122. 1F9AE :: NS:POLARDUMMY
  6123. 1F9AE @  XLIB 2 262 ( :: CK2&Dispatch ; ) H:000
  6124. 1F9C4 :: x>Q
  6125. 1F9C4 @  ->Q (XLIB 2 263)
  6126. 1F9E9 :: x>QPI
  6127. 1F9E9 @  ->QPI (XLIB 2 264)
  6128. 1FA07 :: >QQ
  6129. 1FA07 @  True: ->QPI False: ->Q (2:Any 1:flag)
  6130. 1FA59 :: xUPMATCH
  6131. 1FA59 @  ^MATCH (XLIB 2 265)
  6132. 1FA8D :: xDOWNMATCH
  6133. 1FA8D @  vMATCH (XLIB 2 266)
  6134. 1FABA :: NS:UPMATCH
  6135. 1FABA @  Internal ^MATCH (2:%/C%/sym 1:{} -> 2:Ob 1:%)
  6136. 1FACE :: NS:DOWNMATCH
  6137. 1FACE @  Internal vMATCH (2:%/C%/sym 1:{} -> 2:Ob 1:%)
  6138. 1FAEB :: xFORMUNIT
  6139. 1FAEB @  _ (XLIB 2 267) H:501
  6140. 1FB18 rf r_EQWRUNIT
  6141. 1FB1D h# hex_90127
  6142. 1FB2C rf r_FORMUNIT
  6143. 1FB31 :: FORM%UNIT
  6144. 1FB31 @  Internal _ (1:%/Unit)
  6145. 1FB5D :: xRATIO
  6146. 1FB5D @  RATIO (XLIB 2 268) (Same as x/) H:500
  6147. 1FB76 rf r_EQWRRATIO
  6148. 1FB7B rf rhex_0140605
  6149. 1FB87 :: xDUP
  6150. 1FB87 @  DUP (XLIB 2 269)
  6151. 1FBA2 :: xDUP2
  6152. 1FBA2 @  DUP2 (XLIB 2 270)
  6153. 1FBBD :: xSWAP
  6154. 1FBBD @  SWAP (XLIB 2 271)
  6155. 1FBD8 :: xDROP
  6156. 1FBD8 @  DROP (XLIB 2 272)
  6157. 1FBF3 :: xDROP2
  6158. 1FBF3 @  DROP2 (XLIB 2 273)
  6159. 1FC0E :: xROT
  6160. 1FC0E @  ROT (XLIB 2 274)
  6161. 1FC29 :: xOVER
  6162. 1FC29 @  OVER (XLIB 2 275)
  6163. 1FC44 :: xDEPTH
  6164. 1FC44 @  DEPTH (XLIB 2 276)
  6165. 1FC64 :: xDROPN
  6166. 1FC64 @  DROPN (XLIB 2 277)
  6167. 1FC7F :: xDUPN
  6168. 1FC7F @  DUPN (XLIB 2 278)
  6169. 1FC9A :: xPICK
  6170. 1FC9A @  PICK (XLIB 2 279)
  6171. 1FCB5 :: xROLL
  6172. 1FCB5 @  ROLL (XLIB 2 280)
  6173. 1FCD0 :: xROLLD
  6174. 1FCD0 @  ROLLD (XLIB 2 281)
  6175. 1FCEB :: xCLEAR
  6176. 1FCEB @  CLEAR (XLIB 2 282)
  6177. 1FD0B :: xSTOsigma
  6178. 1FD0B @  STOsigma (XLIB 2 283)
  6179. 1FD2B :: xCLsigma
  6180. 1FD2B @  CLSigma (XLIB 2 284)
  6181. 1FD46 :: xRCLsigma
  6182. 1FD46 @  RCLSigma (XLIB 2 285)
  6183. 1FD61 :: xsigma+
  6184. 1FD61 @  Sigma+ (XLIB 2 286)
  6185. 1FD8B :: xsigma-
  6186. 1FD8B @  Sigma- (XLIB 2 287)
  6187. 1FDA6 :: xNsigma
  6188. 1FDA6 @  NSigma (XLIB 2 288)
  6189. 1FDC1 :: xCORR
  6190. 1FDC1 @  CORR (XLIB 2 289)
  6191. 1FDDC :: xCOV
  6192. 1FDDC @  COV (XLIB 2 290)
  6193. 1FDF7 :: xsigmaX
  6194. 1FDF7 @  SigmaX (XLIB 2 291)
  6195. 1FE12 :: xsigmaY
  6196. 1FE12 @  SigmaY (XLIB 2 292)
  6197. 1FE2D :: xsigmaXX
  6198. 1FE2D @  SigmaX^2 (XLIB 2 293)
  6199. 1FE48 :: xsigmaYY
  6200. 1FE48 @  SigmaY^2 (XLIB 2 294)
  6201. 1FE63 :: xsigmaXY
  6202. 1FE63 @  SigmaX*Y (XLIB 2 295)
  6203. 1FE7E :: xMAXsigma
  6204. 1FE7E @  MAXSigma (XLIB 2 296)
  6205. 1FE99 :: xMEAN
  6206. 1FE99 @  MEAN (XLIB 2 297)
  6207. 1FEB4 :: xMINsigma
  6208. 1FEB4 @  MINSigma (XLIB 2 298)
  6209. 1FECF :: xSDEV
  6210. 1FECF @  SDEV (XLIB 2 299)
  6211. 1FEEA :: xTOT
  6212. 1FEEA @  TOT (XLIB 2 300)
  6213. 1FF05 :: xVAR
  6214. 1FF05 @  VAR (XLIB 2 301)
  6215. 1FF20 :: xLR
  6216. 1FF20 @  LR (XLIB 2 302)
  6217. 1FF2F {} LRSTRINGS{}
  6218. 1FF34 $  "Intercept"
  6219. 1FF50 $  "Slope"
  6220. 1FF7A :: xPREDV
  6221. 1FF7A @  PREDV (XLIB 2 303)
  6222. 1FF9A :: xPREDY
  6223. 1FF9A @  PREDY (XLIB 2 304)
  6224. 1FFBA :: xPREDX
  6225. 1FFBA @  PREDX (XLIB 2 305)
  6226. 1FFDA :: xXCOL
  6227. 1FFDA @  XCOL (XLIB 2 306)
  6228. 1FFFA :: xYCOL
  6229. 1FFFA @  YCOL (XLIB 2 307)
  6230. 2001A :: xUTPC
  6231. 2001A @  UTPC (XLIB 2 308)
  6232. 2003A :: xUTPN
  6233. 2003A @  UTPN (XLIB 2 309)
  6234. 2005A :: xUTPF
  6235. 2005A @  UTPF (XLIB 2 310)
  6236. 2007A :: xUTPT
  6237. 2007A @  UTPT (XLIB 2 311)
  6238. 2009A :: xCOLsigma
  6239. 2009A @  COLSigma (XLIB 2 312)
  6240. 200C4 :: xSCLsigma
  6241. 200C4 @  SCLSigma (XLIB 2 313)
  6242. 200F3 :: xsigmaLINE
  6243. 200F3 @  SigmaLINE (XLIB 2 314)
  6244. 2010E :: xBINS
  6245. 2010E @  BINS (XLIB 3 315)
  6246. 20118 #  <111h>
  6247. 20133 :: xBARPLOT
  6248. 20133 @  BARPLOT (XLIB 2 316)
  6249. 20167 :: xHISTPLOT
  6250. 20167 @  HISTPLOT (XLIB 2 317)
  6251. 2018C :: xSCATRPLOT
  6252. 2018C @  SCATRPLOT (XLIB 2 318)
  6253. 201B1 :: xLINFIT
  6254. 201B1 @  LINFIT (XLIB 2 319)
  6255. 201D6 :: xLOGFIT
  6256. 201D6 @  LOGFIT (XLIB 2 320)
  6257. 201FB :: xEXPFIT
  6258. 201FB @  EXPFIT (XLIB 2 321)
  6259. 20220 :: xPWRFIT
  6260. 20220 @  PWRFIT (XLIB 2 322)OB
  6261. 20234 :: SETMODEL
  6262. 20234 @  set curve-fitting model in 'SigmaPAR' (1:model)
  6263. 2025E :: xBESTFIT
  6264. 2025E @  BESTFIT (XLIB 2 323)
  6265. 20277 :: BESTFITerrhandle
  6266. 202CE :: xSINV
  6267. 202CE @  SINV (XLIB 2 324)
  6268. 202F1 :: SINVID
  6269. 202F1 @  Internal SINV (1:ID)
  6270. 20314 :: SINVLAM
  6271. 20314 @  Internal SINV (1:LAM)
  6272. 2032D :: SWAPDROPSMATINVDROP
  6273. 2034D :: xSNEG
  6274. 2034D @  SNEG (XLIB 2 325)
  6275. 20370 :: SNEGID
  6276. 20370 @  Internal SNEG (1:ID)
  6277. 20393 :: SNEGLAM
  6278. 20393 @  Internal SNEG (1:LAM)
  6279. 203AC :: SWAPDROPSMATNEGDROP
  6280. 203CC :: xSCONJ
  6281. 203CC @  SCONJ (XLIB 2 326)
  6282. 203EF :: SCONJID
  6283. 203EF @  Internal SCONJ (1:ID)
  6284. 20412 :: SCONJLAM
  6285. 20412 @  Internal SCONJ (1:LAM)
  6286. 2042B :: SWAPDROPSMATCONJDROP
  6287. 2044B :: xSTO+
  6288. 2044B @  STO+ (XLIB 2 327)
  6289. 20482 :: STO+NAME
  6290. 20482 @  Internal STO+ (2:Any,1:ID/LAM)
  6291. 20496 #  <644h>
  6292. 20496 @  <644h>
  6293. 204AA :: IDSTO+
  6294. 204AA @  (3:ID 2:contents 1:Any)
  6295. 204C3 :: NAMESTO+
  6296. 204C3 @  Internal STO+ (2:ID/LAM,1:Any)
  6297. 204E1 :: SWAPSTO+
  6298. 204FF :: 'ROPERATE
  6299. 204FF @  Used by SINV etc (ID contents (arg) ->) (Operation fetched with 'R)
  6300. 20518 :: ROTDROPSMAT+DROP
  6301. 20538 :: xSTO-
  6302. 20538 @  STO- (XLIB 2 328)
  6303. 20583 :: STO-NAME
  6304. 20583 @  Internal STO- (2:Any,1:ID/LAM)
  6305. 205A1 :: NAMESTO-
  6306. 205A1 @  Internal STO- (2:ID/LAM,1:Any)
  6307. 205BF :: []STO-
  6308. 205BF @  Internal STO- (2:Array,1:ID)
  6309. 205E2 :: STO-[]
  6310. 205E2 @  Internal STO- (2:ID,1:Array)
  6311. 2060C :: xSTO/
  6312. 2060C @  STO/ (XLIB 2 329)
  6313. 2066B :: STO/NAME
  6314. 2066B @  Internal STO/ (2:Any,1:ID/LAM)
  6315. 20689 :: NAMESTO/
  6316. 20689 @  Internal STO/ (2:ID/LAM,1:Any)
  6317. 206A7 :: STO/FLOAT
  6318. 206A7 @  Internal STO/ (2:ID,1:%/C%)
  6319. 206CF :: XYZ>ZYSMAT/DROP
  6320. 206E8 :: []STO/
  6321. 206E8 @  Internal STO/ (2:Array,1:ID)
  6322. 20710 :: ROTDROPS/MATDROP
  6323. 20729 :: STO/[]
  6324. 20729 @  Internal STO/ (2:ID,1:Array)
  6325. 20753 :: xSTO*
  6326. 20753 @  STO* (XLIB 2 330)
  6327. 207C6 :: STO*NAME
  6328. 207C6 @  Internal STO* (2:Any,1:ID/LAM)
  6329. 207E4 :: NAMESTO*
  6330. 207E4 @  Internal STO* (2:ID/LAM,1:Any)
  6331. 20802 :: FLOATSTO*
  6332. 20802 @  Internal STO* (2:%/C%,1:ID)
  6333. 2082A :: STO*FLOAT
  6334. 2082A @  Internal STO* (2:ID,1:%/C%)
  6335. 20852 :: ROTDROPSMAT1*DROP
  6336. 2086B :: []STO*
  6337. 2086B @  Internal STO* (2:Array,1:ID)
  6338. 20893 :: ROTDROPSMAT2*DROP
  6339. 208AC :: STO*[]
  6340. 208AC @  Internal STO* (2:ID,1:Array)
  6341. 208D4 :: XYZ>ZYSMAT*DROP
  6342. 208F4 :: xINCR
  6343. 208F4 @  INCR (XLIB 2 331)
  6344. 20917 :: INCRID
  6345. 20917 @  Internal INCR (1:ID)
  6346. 20935 :: RclCKUsedID%1
  6347. 20962 :: SAFE@_HERECKREAL
  6348. 20980 :: INCRLAM
  6349. 20980 @  Internal INCR (1:LAM)
  6350. 209AA :: xDECR
  6351. 209AA @  DECR (XLIB 2 332)
  6352. 209CD :: DECRID
  6353. 209CD @  Internal DECR (1:ID)
  6354. 209EB :: DECRLAM
  6355. 209EB @  Internal DECR (1:LAM)
  6356. 20A15 :: xCOLCT
  6357. 20A15 @  COLCT (XLIB 2 333)
  6358. 20A49 :: xEXPAN
  6359. 20A49 @  EXPAN (XLIB 2 334)
  6360. 20A7D :: xRULES
  6361. 20A7D @  RULES (XLIB 2 335) (:: DoBadKey ;)
  6362. 20A93 :: xISOL
  6363. 20A93 @  ISOL (XLIB 2 336)
  6364. 20AB3 :: xQUAD
  6365. 20AB3 @  QUAD (XLIB 2 337)
  6366. 20AD3 :: xSHOW
  6367. 20AD3 @  SHOW (XLIB 2 338)
  6368. 20B00 :: HP:XEQSHOWLS
  6369. 20B00 @  Internal SHOW (2:sym 1:{})
  6370. 20B20 :: xTAYLR
  6371. 20B20 @  TAYLR (XLIB 2 339)
  6372. 20B40 :: xRCL
  6373. 20B40 @  RCL (XLIB 2 340)
  6374. 20B81 :: HP:XEQRCL
  6375. 20B81 @  Internal RCL (1:ID/LAM)
  6376. 20B9A :: HP:LISTRCL
  6377. 20B9A @  Internal RCL (1:{} (path/object))
  6378. 20BE0 :: DUPNOTNAMELIST?ERR
  6379. 20BE0 @  Cheks that {} has only ID/LAMs (1:{})
  6380. 20BE5 :: DUPNAMELIST?SKIP
  6381. 20C4E :: SWAPCKRCLDIRVAR
  6382. 20C4E @  (2:{DIRID VARID} 1:DIR -> 1:Contents) (Or error if not found)
  6383. 20C71 :: HOMELISTRCL
  6384. 20C71 @  Internal RCL starting from HOME (1:{HOME path object})
  6385. 20CAD :: HP:PICTRCL
  6386. 20CAD @  Internal RCL (1:PICT) (Does TOTEMPOB)
  6387. 20CCD :: xSTO
  6388. 20CCD @  STO (XLIB 2 341)
  6389. 20CE6 :: STRIPTAGSl2XEQSTOID
  6390. 20CFF :: STRIPTAGSl2STO
  6391. 20D18 :: STRIPTAGSl2STOALG
  6392. 20D2C #  NS:##C8
  6393. 20D3B #  <9F1h>
  6394. 20D4A #  <8F1h>
  6395. 20D65 :: xDEFINE
  6396. 20D65 @  DEFINE (XLIB 2 342)
  6397. 20D7E :: DEFINEALG
  6398. 20D7E @  Internal DEFINE (1:ALG ->)
  6399. 20DBF :: DEFINENAME
  6400. 20DBF @  Internal DEFINE (1:ID/LAM)
  6401. 20DCE :: 
  6402. 20E0A :: DEFINEALGALG
  6403. 20E19 ::
  6404. 20E4B $  " "
  6405. 20ECA :: DUPCKNAME
  6406. 20ECA @  DUP & If not ID/LAM then SETInvDefERR
  6407. 20EFE :: xPURGE
  6408. 20EFE @  PURGE (XLIB 2 343)
  6409. 20F35 :: XEQPURGELS
  6410. 20F35 @  Internal PURGE (1:{})
  6411. 20F44 :: EvalNoCK:compDROP
  6412. 20F44 @  Executes next on all composite elements & DROP (INDEX@ is usable)
  6413. 20F44 @  (At execution time: 2:comp 1:ob  1LAM:The stored program)
  6414. 20F44 @  Ex: :: { 1 2 3 } EvalNoCK:comp :: NOP DUPROT ; ; -> 1 1 2 2 3 3
  6415. 20F8A :: HP:XEQPURGEPICT
  6416. 20F8A @  Internal PURGE (1:PICT)
  6417. 20FAA :: HP:xMEM
  6418. 20FAA @  MEM (XLIB 2 344)
  6419. 20FD9 :: xORDER
  6420. 20FD9 @  ORDER (XLIB 2 345)
  6421. 20FF2 :: HP:XEQORDER
  6422. 20FF2 @  ORDER{}
  6423. 20FF2 @  Internal ORDER (1:{})
  6424. 21006 ::
  6425. 21047 :: OVERPURGESWAPCREATE
  6426. 21074 ::
  6427. 21097 CD
  6428. 210FC :: xCLVAR
  6429. 210FC @  CLVAR (XLIB 2 346)
  6430. 21133 :: RAM-WORDNAME?PURGE_HERE
  6431. 2115D :: xTMENU
  6432. 2115D @  TMENU (XLIB 2 347)
  6433. 21176 :: TMENU
  6434. 21176 @  (1:{}/ID/LAM)
  6435. 21196 :: xMENU
  6436. 21196 @  MENU (XLIB 2 348)
  6437. 211B4 g' NS:ID_CST
  6438. 211E1 :: xRCLMENU
  6439. 211E1 @  RCLMENU (XLIB 2 349)
  6440. 211FC :: xPVARS
  6441. 211FC @  PVARS (XLIB 2 350)
  6442. 2120B :: XEQPVARS
  6443. 2120B @  Internal PVARS (1:%) (Checks port number is in range)
  6444. 2123A :: xPGDIR
  6445. 2123A @  PGDIR (XLIB 2 351)
  6446. 2125A :: xARCHIVE
  6447. 2125A @  ARCHIVE (XLIB 2 352)
  6448. 21273 :: XEQTAGGEDARCHIVE
  6449. 21273 @  Internal ARCHIVE (1:Tagged with %port or "IO")
  6450. 2127D $  "IO"
  6451. 212C7 :: XEQPORTARCHIVE
  6452. 212C7 @  Internal ARCHIVE to port (2:ID 1:%port)
  6453. 212CC :: CKl2NAME&PORT$
  6454. 212CC @  Checks stk2 is ID/LAM and stk1 is "0","1" or "2"
  6455. 212D1 :: CKl2NAME
  6456. 212D1 @  Type error if stk2 not ID/LAM (2:Any 1:Any -> 2:Any 1:Any)
  6457. 2133C :: xRESTORE
  6458. 2133C @  RESTORE (XLIB 2 353)
  6459. 2134B :: TAGGEDRESTORE
  6460. 2134B @  Internal RESTORE (1:Tagged)
  6461. 21364 #  <9Fh>
  6462. 2137F :: xMERGE
  6463. 2137F @  MERGE (XLIB 3 354)
  6464. 21398 :: %MERGE
  6465. 21398 @  Internal MERGE (1:%)
  6466. 213D1 :: HP:xFREE
  6467. 213D1 @  FREE (XLIB 2 355)
  6468. 21408 :: XEQNAMEFREE
  6469. 21408 @  Internal FREE (2:%/ID/LAM 1:%port)
  6470. 2142D :: xLIBS
  6471. 2142D @  LIBS (XLIB 2 356)
  6472. 21448 :: xATTACH
  6473. 21448 @  ATTACH (XLIB 2 357)
  6474. 21461 :: XEQ%ATTACH
  6475. 21461 @  Internal ATTACH (1:%libnum)
  6476. 2147C :: xDETACH
  6477. 2147C @  DETACH (XLIB 2 358)
  6478. 21495 :: XEQ%DETACH
  6479. 21495 @  Internal DETACH (1:%)
  6480. 214A9 :: COERCENOTFREERANGE?ERR
  6481. 214A9 @  COERCE & verify #libnum is in free range (#libnum>#100 & <> #700)
  6482. 214F4 :: TAGGEDSTO
  6483. 214F4 @  Internal STO (2:Any 1:Tagged)
  6484. 21530 :: CKSTO
  6485. 21530 @  Internal STO (do arg/type checks) (:: ' xSTO COLA EvalNoCK ; )
  6486. 21553 :: XEQPORT2STO
  6487. 21558 xl XLIB_240_93
  6488. 2156D :: XEQPORT1STO
  6489. 21572 xl XLIB_240_93
  6490. 21587 :: XEQPORT0STO
  6491. 2158C xl XLIB_240_93
  6492. 215A1 :: PORTSTO
  6493. 215A1 @  (3:LIB/BAK/Any 2:#/ID 1:#0,#1,#2)
  6494. 215BF :: %PORTSTO
  6495. 215BF @  Internal STO (2:LIB/BAK 1:%port)
  6496. 215C9 xl XLIB_240_95
  6497. 215D9 :: DUPGetPobjId
  6498. 215D9 @  (1:BAK/LIB -> 2:BAK/LIB 1:ID/#libnum)
  6499. 215E8 :: LIB>#
  6500. 215E8 @  (1:LIB -> 1:#libnum)
  6501. 2160B :: SWAPDROPDUPGetPobjIdTRUE
  6502. 21624 :: >BAKUPTrue
  6503. 21624 @  (2:ID/LAM 1:Any -> 2:BAK 1:True)
  6504. 21638 :: NS:DTYPEREAL?cse
  6505. 21638 @  << DUPTYPEREAL? COLAcase >>
  6506. 2164C :: NS:SWAPFALSE
  6507. 2164C @  Internal SWAP and False
  6508. 21660 :: HP:SWAPDROPTRUE
  6509. 21660 @  drop level two object and True
  6510. 21674 :: NS:>BAK
  6511. 21674 @  (2:ID/LAM 1:Any -> 1:BAK)
  6512. 216D8 P  COMP>BAK
  6513. 216D8 @  (1:{ ID/LAM+2nib Any Any5nib} -> 1:BAK)
  6514. 21761 :: XEQTAGGEDRCL
  6515. 21761 @  Internal RCL (1:Tagged ID -> 1:contents)
  6516. 2176B xl XLIB_240_96
  6517. 21776 xl XLIB_240_103
  6518. 2178B :: SKIPCOLAEvalNoCK:
  6519. 2178B @  SKIP, then EvalNoCK next & return
  6520. 2178B @  Example: :: SKIP'COLAEvalNoCK <foo> x+ <rest> ; == :: x+ ;
  6521. 217A9 :: :'RRSKIPCOLA_EVAL
  6522. 217A9 @  Push next, push 1st from prev, skip in prev & COLA_EVAL
  6523. 217A9 @  :: 'RRDROP 'R RSKIP COLA_EVAL ;
  6524. 217C7 :: XEQTAGGEDEVAL
  6525. 217C7 @  Internal EVAL (1:Tagged)
  6526. 217D1 xl XLIB_240_96
  6527. 217DC xl XLIB_240_107
  6528. 217F1 :: XEQTAGGEDPURGE
  6529. 217F1 @  Internal PURGE (1:Tagged)
  6530. 217FB xl XLIB_240_96
  6531. 21806 xl XLIB_240_109
  6532. 2181B :: xPURGENOLASTWD
  6533. 21839 :: PVARS
  6534. 21839 @  Internal PVARS (1:#port)
  6535. 2185C ::
  6536. 21893 ::
  6537. 2189D $  "ROM"
  6538. 218BC ::
  6539. 218C6 $  "SYSRAM"
  6540. 2190E ::
  6541. 21922 :: DUPCKRCLPORTLIBS
  6542. 21922 @  Rcl libs in port (1:#port -> #port...2:LIB 1:#no.of.libs)
  6543. 21931 :: RCLPORT0LIBS
  6544. 21931 @  (-> LIBS..1:#n) (Makes no checks)
  6545. 21972 :: NS:RLIBS 
  6546. 21972 @  (1:#portaddr -> LIBS..1:#n) (Makes no checks)
  6547. 2198B :: NS:ROT#1+SWAP
  6548. 2198B @  (3:#n 2:Any 1:Ob -> 3:Any 2:#n+1 1:Ob)
  6549. 219A9 :: TAGNLIBS
  6550. 219A9 @  (#port LIBs/BAKs 1:#n -> Taggeds #n) 
  6551. 219A9 @  (LIB-> #port:%libnum, BAK->#port:ID)
  6552. 219C2 :: #>PORT$
  6553. 219C2 @  (1:# -> 1:$) (#0->"0" #1->"1" other->"2")
  6554. 219F4 :: LIB/BAK>%/ID
  6555. 219F4 @  Gets %libnum or ID (1:LIB/BAK -> 1:%/ID) (Must exists)
  6556. 219FE :: NS:LIB>%
  6557. 219FE @  Get library number (LIB must exist) (1:LIB -> 1:%)
  6558. 21A49 :: XEQPORTARCHIVE
  6559. 21A49 @  Archive to port (2:ID/LAM 1:#port)
  6560. 21A8F :: ARCHIVEERRhandle
  6561. 21AB7 :: XEQPORT0ARCHIVE
  6562. 21AB7 @  Archive to port0 (1:ID/LAM)
  6563. 21AF8 :: XEQPORTRESTORE
  6564. 21AF8 @  Internal RESTORE (2:ID 1:#port -> )
  6565. 21AFD :: PORTCK@
  6566. 21AFD @  (2:ID/#libnum 1:#0/#1/#2 -> 2:BAK/LIB 1:T / 1:F)
  6567. 21B2F :: XEQBAKRESTORE
  6568. 21B2F @  Internal RESTORE (1:Backup)
  6569. 21B39 xl XLIB_240_99
  6570. 21B4E P  NS:WarmStart
  6571. 21B5A :: HP:XEQIOBACKUP
  6572. 21B5A @  Archive to IO (1:$/ID/LAM)
  6573. 21B64 xl XLIB_240_100
  6574. 21B74 :: XEQ{}FREE
  6575. 21B74 @  Internal FREE (2:{} 1:%port)
  6576. 21B7E xl XLIB_240_101
  6577. 21B8E ::
  6578. 21BED ::
  6579. 21C47 P  NS:MEMSKIPADDR
  6580. 21C47 @  Skips stk1 in memory, then gives address as #
  6581. 21C47 @  Example: 1:#0 -> 1:#3ff9  (Which is address for #1)
  6582. 21C6F :: HP:XEQSETLIB
  6583. 21C6F @  Internal ATTACH (1:#libnum)
  6584. 21C88 :: XEQHOMEATTACH
  6585. 21C88 @  (if not yet attached then attach to homedir) (1:#libnum)
  6586. 21CBA P  NS:DIRATTACH
  6587. 21CBA @  Internal ATTACH to non-HOME directory (2:Dir 1:#libnum)
  6588. 21CE5 :: XEQDETACH
  6589. 21CE5 @  Internal DETACH (1:#libnum)
  6590. 21D2B P  NS:DIRDETACH
  6591. 21D2B @  Internal DETACH from non-HOME directory (2:DIR 1:#libnum)
  6592. 21D54 :: LIBS
  6593. 21D54 @  Internal LIBS
  6594. 21D5E :: RCLDIRLIBS
  6595. 21D5E @  Rcl info ($Name %Id #Addr) on libs attached (1:DIR)
  6596. 21D68 xl XLIB_240_102
  6597. 21D9B xl XLIB_240_111
  6598. 21DB0 :: PORTBEGENDPROT?
  6599. 21DB0 @  (1:#port -> 3:#startaddr 2:#endaddr 1:Present and not merged?)
  6600. 21DE7 #  <70000h>
  6601. 21DF1 :: NS:DNAMELIST?cse
  6602. 21DF1 @  DUP & if {} has only LAM/IDs then COLA else SKIP
  6603. 21E41 :: NS:DROPCOLASKIP
  6604. 21E41 @  :: DROPCOLA COLASKIP ; (DROP, return & SKIP)
  6605. 21E75 :: xXMIT
  6606. 21E75 @  XMIT (XLIB 2 359)
  6607. 21E95 :: xRECV
  6608. 21E95 @  SRECV (XLIB 2 360)
  6609. 21EB5 :: xOPENIO
  6610. 21EB5 @  OPENIO (XLIB 2 361)
  6611. 21ED5 :: xCLOSEIO
  6612. 21ED5 @  CLOSEIO (XLIB 2 362)
  6613. 21EF0 :: xSEND
  6614. 21EF0 @  SEND (XLIB 2 363)
  6615. 21F24 :: xKGET
  6616. 21F24 @  KGET (XLIB 2 364)
  6617. 21F62 :: xRECN
  6618. 21F62 @  RECN (XLIB 2 365)
  6619. 21F96 :: xRECV
  6620. 21F96 @  RECV (XLIB 2 366)
  6621. 21FB6 :: xFINISH
  6622. 21FB6 @  FINISH (XLIB 2 367)
  6623. 21FD1 :: xSERVER
  6624. 21FD1 @  SERVER (XLIB 2 368)
  6625. 21FEC :: xCKSM
  6626. 21FEC @  CKSM (XLIB 2 369)
  6627. 2200C :: xBAUD
  6628. 2200C @  BAUD (XLIB 2 370)
  6629. 2202C :: xPARITY
  6630. 2202C @  PARITY (XLIB 2 371)
  6631. 2204C :: xTRANSIO
  6632. 2204C @  TRANSIO (XLIB 2 372)
  6633. 2206C :: xKERRM
  6634. 2206C @  KERRM (XLIB 2 373)
  6635. 22087 :: xBUFLEN
  6636. 22087 @  BUFLEN (XLIB 2 374)
  6637. 220A2 :: xSTIME
  6638. 220A2 @  STIME (XLIB 2 375)
  6639. 220C2 :: xSBRK
  6640. 220C2 @  SBRK (XLIB 2 376)
  6641. 220DD :: xPKT
  6642. 220DD @  PKT (XLIB 2 377)
  6643. 220F6 :: MSGOK?DISPIOSETUP
  6644. 220F6 @  If MSGOK? then display IO setup screen
  6645. 22105 :: DISPIOSETUP
  6646. 2212D $  "IR"
  6647. 2213B $  "wire"
  6648. 2216B $  "binary"
  6649. 22181 $  "ASCII"
  6650. 221EF ::  appendParity$
  6651. 221F4 {} Parity{}
  6652. 221F9 $  "none "
  6653. 2220D $  "odd "
  6654. 2221F $  "even "
  6655. 22233 $  "mark "
  6656. 2226A $  "spc "
  6657. 22286 :: DROPInvalid$
  6658. 22290 $  "invalid"
  6659. 222EE :: SWAPEDITDECOMP$!append$
  6660. 22307 :: DoASCIIkey
  6661. 22307 @  Toggles ASCII/binary flag & redraws IOSETUP display
  6662. 22325 :: DoIR/Wkey
  6663. 22325 @  Toggles IR/wire flag & redraws IOSETUP display
  6664. 22343 :: MAKEVALIDBAUD
  6665. 2234D {} BAUD{}
  6666. 2234D @  { %1200 %2400 %4800 %9600 }
  6667. 22352 %  %1200
  6668. 22367 %  %2400
  6669. 2237C %  %4800
  6670. 22391 %  %9600
  6671. 223BF :: MAKEVALIDCKSM
  6672. 223C9 {} CKSM{}
  6673. 223C9 @  { %1 %2 %3 }
  6674. 223F6 :: MAKEVALIDPARITY
  6675. 22400 {} PARITY{}
  6676. 22437 :: MAKEVALIDTRANSLATE
  6677. 22441 {} TRANSLATE{}
  6678. 22473 :: MAKEVALIDIOVAR
  6679. 224CA :: xINPUT
  6680. 224CA @  INPUT (XLIB 2 378)
  6681. 224F4 :: xASN
  6682. 224F4 @  ASN (XLIB 2 379)
  6683. 22514 :: xSTOKEYS
  6684. 22514 @  STOKEYS (XLIB 2 380)
  6685. 22548 :: xDELKEYS
  6686. 22548 @  DELKEYS (XLIB 2 381)
  6687. 22586 :: xRCLKEYS
  6688. 22586 @  RCLKEYS (XLIB 2 382)
  6689. 225A4 g' ID_S
  6690. 225BE :: x>TAG
  6691. 225BE @  ->TAG (XLIB 2 383)
  6692. 225F5 :: HP:USER$>TAG
  6693. 225F5 @  Internal ->TAG (2:Any 1:$)
  6694. 22618 :: HP:%>TAG
  6695. 22618 @  Internal ->TAG (2:Any 1:%)
  6696. 22633 :: xDTAG
  6697. 22633 @  DTAG (XLIB 2 384)
  6698. 22647 #  Hash002
  6699. 22647 @  Reference to hash table for library 002 (XLIB 2) (#7448A)
  6700. 22651 #h Link002
  6701. 22651 @  Link table for library 002 (XLIB 2)
  6702. 22DFE #  Hash700
  6703. 22DFE @  Reference to hash table for library 700 (XLIB 1792) (#7427C)
  6704. 22E08 #h Link700
  6705. 22E08 @  Link table for library 700 (XLIB 1792)
  6706. 22EA3 :: CONFIG700
  6707. 22EA3 @  Configuration code for library 700 (XLIB 1792) (#700 HOMEATTACH)
  6708. 22EA8 #  <700h>
  6709. 22EC3 :: xIF
  6710. 22EC3 @  IF (XLIB 1792 0) ( :: CK0ATTNABORT ; ) H:5
  6711. 22ED2 rf r_PARSEIF
  6712. 22ED7 $  "IF-prompt"
  6713. 22EFA :: xTHEN
  6714. 22EFA @  THEN (XLIB 1792 1) H:A
  6715. 22F1D rf r_DBG_THEN
  6716. 22F22 :: %THEN
  6717. 22F22 @  Internal THEN (1:%)
  6718. 22F3B :: 2SKIP
  6719. 22F3B @  :: RSKIP COLASKIP ;     :: 2SKIP <no> <no> <rest> ;
  6720. 22F4F :: SYMTHEN
  6721. 22F4F @  Internal THEN (1:sym)
  6722. 22F68 :: SYMCRUNCH
  6723. 22F68 @  ID: XEQRCL CRUNCH else CRUNCH (1:sym -> 1:Evaluated)
  6724. 22F86 :: SYMCRUNCHstk2
  6725. 22F86 @  (2:sym 1:Any -> 2:Evaluated 1:Any)
  6726. 22FB5 :: xELSE
  6727. 22FB5 @  ELSE (XLIB 1792 2) ( :: CK0 COLASKIP ; ) H:A
  6728. 22FC9 rf r_DBG_ELSE
  6729. 22FD5 :: xEND
  6730. 22FD5 @  END (XLIB 1792 3) H:3
  6731. 22FEB :: xALG->
  6732. 22FEB @  -> (for Algebraics) (XLIB 1792 4) H:8
  6733. 23022 rf r_PARSEALG->
  6734. 23027 rf r_DBUG_ALG->
  6735. 23033 :: xWHILE
  6736. 23033 @  WHILE (XLIB 1792 5) H:9
  6737. 2304C rf r_PARSEWHILE
  6738. 23051 rf r_DBUG_WHILE
  6739. 2305D :: xREPEAT
  6740. 2305D @  REPEAT (XLIB 1792 6) H:A
  6741. 23080 rf r_DBUG_REPEAT
  6742. 23085 :: %REPEAT
  6743. 23085 @  Internal REPEAT (1:%)
  6744. 230A3 :: SYMREPEAT
  6745. 230A3 @  Internal REPEAT (1:sym)
  6746. 230C3 :: xDO
  6747. 230C3 @  DO (XLIB 1792 7) H:9
  6748. 230DC rf r_PARSEDO
  6749. 230E1 rf r_DBUG_DO
  6750. 230ED :: xUNTIL
  6751. 230ED @  UNTIL (XLIB 1792 8) H:2 (NONE)
  6752. 23103 :: xSTART
  6753. 23103 @  START (XLIB 1792 9) H:9
  6754. 2313A rf r_PARSESTART
  6755. 2313F rf r_DBUG_START
  6756. 23144 :: %START
  6757. 23144 @  Internal START (2:% 1:%)
  6758. 23167 :: SYMSTART
  6759. 23167 @  Internal START (2:%/sym 1:sym)
  6760. 23180 :: SYM%START
  6761. 23180 @  Internal START (2:sym 1:%)
  6762. 231A0 :: xFOR
  6763. 231A0 @  FOR (XLIB 1792 10) H:9
  6764. 231D7 rf r_PARSEFOR
  6765. 231DC rf r_DBUG_FOR
  6766. 231E1 :: %FOR
  6767. 231E1 @  Internal FOR (2:%,1:%)
  6768. 23213 :: SYMFOR
  6769. 23213 @  Internal FOR (2:%/sym 1:sym)
  6770. 2322C :: SYM%FOR
  6771. 2322C @  Internal FOR (2:sym 1:%)
  6772. 2324C :: xNEXT
  6773. 2324C @  NEXT (XLIB 1792 11) H:B
  6774. 23265 rf r_DBUG_NEXT
  6775. 2326A P  NEXT
  6776. 2326A @  Internal NEXT
  6777. 23380 :: xSTEP
  6778. 23380 @  STEP (XLIB 1792 12) H:B
  6779. 233A3 rf r_DBUG_STEP
  6780. 233A8 :: SYMSTEP
  6781. 233A8 @  Internal STEP (1:sym)
  6782. 233C1 P  %STEP
  6783. 233C1 @  Internal STEP (1:%)
  6784. 233DF :: xIFERR
  6785. 233DF @  IFERR (XLIB 1792 13) H:9
  6786. 233FD :: IFERRerrtrap
  6787. 23420 :: @Exec1NameSWAP
  6788. 23461 rf r_PARSEIFERR
  6789. 23466 rf r_DBUG_IFERR
  6790. 23472 :: xHALT
  6791. 23472 @  HALT (XLIB 1792 14) H:8
  6792. 2348B rf r_PARSEHALT
  6793. 23490 rf r_DBUG_HALT
  6794. 2349C :: xSILENT'
  6795. 2349C @  (XLIB 1792 15) (Doesn't store ' as new command) H:8
  6796. 234B0 rf r_TrueTrue
  6797. 234B5 rf r_DBUG_SILENT'
  6798. 234C1 :: xRPN->
  6799. 234C1 @  -> (for Programs) (XLIB 1792 16) H:8
  6800. 234F8 rf r_PARSERPN->
  6801. 234FD rf r_DBUG_RPN->
  6802. 23502 P  FetchLAMs
  6803. 23502 @  In programs???? ( -> ..LAMs 1:#count)
  6804. 235FE :: x>>ABND
  6805. 235FE @  >> (end local scope) (XLIB 1792 17) H:B
  6806. 235FE rf r_DBUG_>>ABND
  6807. 2361E :: HP:x<<
  6808. 2361E @  << (XLIB 1792 18) H:1
  6809. 2362D rf r_PARSE<<
  6810. 23639 :: x>>
  6811. 23639 @  >> (XLIB 1792 19) H:B
  6812. 23648 rf r_DBUG_>>
  6813. 23654 :: x'
  6814. 23654 @  ' (XLIB 1792 20) H:8
  6815. 23668 rf r_PARSE'
  6816. 2366D rf r_DBUG_'
  6817. 23679 :: xENDTIC
  6818. 23679 @  ' (XLIB 1792 21) H:0
  6819. 23688 rf r_PARSEENDTIC
  6820. 23694 :: xWHILEEND
  6821. 23694 @  END (XLIB 1792 22) H:B
  6822. 236AD rf r_DBUG_WHILEEND
  6823. 236B9 :: xENDDO
  6824. 236B9 @  END (XLIB 1792 23) H:B
  6825. 236DC rf r_DBUG_ENDDO
  6826. 236E1 :: %ENDDO
  6827. 236FF :: SYMENDDO
  6828. 2371F :: xTHEN
  6829. 2371F @  THEN (XLIB 1792 24) H:2 (NONE)
  6830. 2372E l' LAM_'stop
  6831. 2373F l' LAM_'noname
  6832. 23754 {} LOOPLAMS{}
  6833. 23754 @  {LAM_'noname LAM_'stop}
  6834. 23768 :: HP:CK0ATTNABORT
  6835. 23768 @  :: 'RSAVEWORD CK0NOLASTWD COLA ?ATTNQUIT ;
  6836. 2378D :: xCASE
  6837. 2378D @  CASE (XLIB 1792 25) H:1
  6838. 2379C rf r_PARSECASE
  6839. 237A8 :: xCASETHEN
  6840. 237A8 @  THEN (for CASE) (XLIB 1792 26) H:9
  6841. 237CB rf r_FalseTrue
  6842. 237D0 rf r_DBUG_CASETHEN
  6843. 237D5 :: %CASETHEN
  6844. 237F3 :: SYMCASETHEN
  6845. 23813 :: xDIR
  6846. 23813 @  DIR (XLIB 1792 27) H:2 (NONE)
  6847. 23813 @  (A null program, hashes DIR, C$, GROB and XLIB)
  6848. 23824 :: xPROMPT
  6849. 23824 @  PROMPT (XLIB 1792 28) H:8
  6850. 2382E :: PROMPTNOLASTWD
  6851. 2385B rf r_PARSEPROMPT
  6852. 23860 rf r_DBUG_PROMPT
  6853. 23865 :: $PROMPT
  6854. 23865 :: DISPSTATUS2SetDA1Valid
  6855. 23879 {} LAM{'ioinprogress}
  6856. 2387E l' LAM_'ioinprogress
  6857. 238A4 :: HP:palparse
  6858. 238B8 ::
  6859. 238CC ::
  6860. 23903 {} LAM{st_ofs_tok}
  6861. 23908 l' LAM_st
  6862. 23913 l' LAM_ofs
  6863. 23920 l' LAM_tok
  6864. 2394B l' LAM_st
  6865. 23956 l' LAM_ofs
  6866. 23963 l' LAM_tok
  6867. 23989 {} Nullparse{}
  6868. 23989 @  End marker for the parser
  6869. 23993 :: palparsetrap
  6870. 239A7 :: DrpTillNullparse{}
  6871. 239CF :: 5DROPSWAPDROPTRUE
  6872. 239E3 :: GetRestTokens
  6873. 23A06 :: palparsetostk
  6874. 23A06 @  Parses $ to stack obs
  6875. 23A2E ::
  6876. 23A6F :: PARSE'
  6877. 23A6F :: PARSEENDTIC
  6878. 23A8D ::
  6879. 23AB0 ::
  6880. 23AE2 :: PARSECASE
  6881. 23B19 ::
  6882. 23B5F ::
  6883. 23B9B ::
  6884. 23BD2 :: PARSEIF
  6885. 23BF0 ::
  6886. 23C27 ::
  6887. 23C4A ::
  6888. 23C90 ::
  6889. 23CB8 ::
  6890. 23CEF ::
  6891. 23D0D :: PARSEDO
  6892. 23D2B ::
  6893. 23D62 ::
  6894. 23D80 ::
  6895. 23DB7 ::
  6896. 23DD0 :: PARSE<<
  6897. 23DFD ::
  6898. 23E34 ::
  6899. 23E52 ::
  6900. 23E7F :: PARSESTART
  6901. 23E9D :: PARSEFOR
  6902. 23EED :: HP:ONE{}N
  6903. 23F01 ::
  6904. 23F47 ::
  6905. 23F60 ::
  6906. 23F79 :: PARSEWHILE
  6907. 23F97 ::
  6908. 23FCE ::
  6909. 23FF1 ::
  6910. 24028 ::
  6911. 24046 :: PARSEIFERR
  6912. 24069 ::
  6913. 240A0 ::
  6914. 240D7 ::
  6915. 2411D ::
  6916. 24145 ::
  6917. 2417C ::
  6918. 2419A :: PARSEALG->
  6919. 2419A :: PARSERPN->
  6920. 241BD ::
  6921. 24203 ::
  6922. 24208 ::
  6923. 24280 ::
  6924. 242D0 ::
  6925. 24307 ::
  6926. 24320 :: PARSEHALT
  6927. 24339 :: PARSEPROMPT
  6928. 24352 ::
  6929. 24384 :: Obparse
  6930. 24447 :: ?Unitparse
  6931. 24465 :: Unitparse
  6932. 244A1 :: Taggedparse
  6933. 244F6 ::
  6934. 24505 ::
  6935. 24537 ::
  6936. 24541 ::
  6937. 245A5 ::
  6938. 245DC ::
  6939. 24609 ::
  6940. 24613 :: DUP$>IDFALSEDUP
  6941. 2464F P  LAM>ID
  6942. 2465F P  ID>LAM
  6943. 24681 ::
  6944. 2469F ::
  6945. 246BD ::
  6946. 246F4 ::
  6947. 24717 :: 4DROPFALSETRUE
  6948. 2472B :: Symparse
  6949. 24771 :: 
  6950. 2478A :: Complexparse
  6951. 2479E ::
  6952. 247CB ::
  6953. 24816 :: Arryparse
  6954. 24875 ::
  6955. 2489D ::
  6956. 248D9 ::
  6957. 2491F ::
  6958. 24956 ::
  6959. 24992 ::
  6960. 249C9 ::
  6961. 24A14 ::
  6962. 24A28 {} LAM{i_j}
  6963. 24A2D l' LAM_i
  6964. 24A36 l' LAM_j
  6965. 24A53 ::
  6966. 24A5D l' LAM_i
  6967. 24A6B l' LAM_j
  6968. 24A97 ::
  6969. 24AC9 ::
  6970. 24B0A l' LAM_j
  6971. 24B1D l' LAM_i
  6972. 24B30 l' LAM_i
  6973. 24B70 ::
  6974. 24BB6 l' LAM_j
  6975. 24BC4 ::
  6976. 24BD3 l' LAM_i
  6977. 24BE1 l' LAM_i
  6978. 24C0D :: HP:List
  6979. 24C0D :: Listparse
  6980. 24C30 ::
  6981. 24C71 ::
  6982. 24C9E :: Binaryparse
  6983. 24CF3 :: ROTDROP3GETLAM3UNROLL
  6984. 24D20 :: Dirparse
  6985. 24D75 ::
  6986. 24DBB ::
  6987. 24E06 :: {}>DIR
  6988. 24E29 ::
  6989. 24E47 ::
  6990. 24E83 ::
  6991. 24EA6 P  NS:MKDIR
  6992. 24EA6 @  ( {} -> DIR )
  6993. 24EA6 @  {} = { HXS 000 ID Ob1 ID Ob2 ... } Last char in ID is lost
  6994. 24FD2 :: Stringparse
  6995. 24FE6 :: CStringparse
  6996. 2502C :: NULL$DaDGNTc
  6997. 25059 ::
  6998. 250B8 ::
  6999. 250D1 ::
  7000. 250EF ::
  7001. 25108 P
  7002. 2512D P  HP:delimcase
  7003. 251EC :: 6UNROLL5ROLL#1+5UNROLL
  7004. 2520A :: HP:'Rapndit
  7005. 25223 :: HP:DaDGNTc
  7006. 25246 :: SWAPUnDROPTRUEDUP
  7007. 25246 :: pshDROPTRUEDUP
  7008. 25246 @  (Meta1 Meta2 -> Meta2 meta1 True True) (meta1 has no count)
  7009. 2525A :: stkparse
  7010. 2525A @  parses stack objects to 1 object
  7011. 25282 ::
  7012. 252A0 ::
  7013. 252B4 ::
  7014. 252CD ::
  7015. 252F5 ::
  7016. 2530E :: NS:ZERO5UNROLL
  7017. 25322 :: NS:FOURpsh
  7018. 25322 @  (Meta1 Ob4 Ob3 Ob2 Ob1 -> Meta2 Meta1) (Meta2 = Ob4..Ob1 #4)
  7019. 25336 ::
  7020. 2534A P  HP:nultrior
  7021. 2534A P  NULL$?case ??????????
  7022. 2537C ::
  7023. 2539A $  "TO"
  7024. 253A8 $  "DIR"
  7025. 253B8 $  ":"
  7026. 253C4 $  "ELSE"
  7027. 253D6 $  "END"
  7028. 253E6 $  "UNTIL"
  7029. 253FA $  "REPEAT"
  7030. 25410 $  "NEXT"
  7031. 25422 $  "STEP"
  7032. 25434 $  "THEN"
  7033. 25446 $  "->"
  7034. 25446 $  HP:tok->
  7035. 25452 :: HP:getmatchtok
  7036. 2549D ::
  7037. 254DE :: ROTgetmatchtok
  7038. 254F7 ::
  7039. 25501 :: 3UNROLLGetNextToken4ROLLDROP
  7040. 2551F P
  7041. 255BD P
  7042. 255FB P  HP:need'case
  7043. 255FB P  DUPNAMEcase?????????
  7044. 25632 ::
  7045. 25678 $  "bodh"
  7046. 25699 {} #{2_8_A_10}
  7047. 256E4 P
  7048. 258DA ::
  7049. 258EE {} null{}
  7050. 25934 ::
  7051. 25966 :: NS:TRUETRUETRUE
  7052. 25984 :: 
  7053. 259C0 ::
  7054. 259D4 ::
  7055. 259D9 ::
  7056. 25A06 {} LAM{'1'2'3}
  7057. 25A0B l' LAM_'1
  7058. 25A16 l' LAM_'2
  7059. 25A21 l' LAM_'3
  7060. 25A3B l' LAM_'1
  7061. 25A46 l' LAM_'2
  7062. 25A51 l' LAM_'3
  7063. 25A66 :: NS:2DROPTRUETRUE
  7064. 25A93 ::
  7065. 25AB6 :: 4UNROLL5ROLL2DROPGetNextToken
  7066. 25AD4 ::
  7067. 25B0B P  NS:#+OVF
  7068. 25B0B @  Internal + with #FFFFF as maximum result (2:# 1:# -> 1:#)
  7069. 25B3D :: Grobparse
  7070. 25BBF :: NS:3DROPFALSETRU
  7071. 25C0A :: NS:DROPFALSETRUE
  7072. 25C37 #  <2B1Eh>
  7073. 25C41 P  ASCII>HXS
  7074. 25C41 @  (4:$ 3:HXS 2:#(5=prolog_only) 1:#prolog) ??????????
  7075. 25CE1 *  HP:GETPTRTRUE
  7076. 25CF5 $  NS:2SPACE$
  7077. 25CF5 $  "  "
  7078. 25D03 :: Seprparse
  7079. 25D03 @  Parses "." "," & "E"
  7080. 25D3A hx HXS(105)Something1
  7081. 25E44 hx HXS(105)Something2
  7082. 25F4E hx HXS(105)Something3
  7083. 26058 hx HXS(105)Something4
  7084. 26162 :: HP:GetNextToken
  7085. 26162 @  (2:$ 1:#n -> 3:$ 2:#next 1:$token)
  7086. 26162 @  Gets the word starting at #nth char, strips spaces
  7087. 26162 @  #next points the next word. Gives "" if at the end
  7088. 261AD P  (?? 1:F/T -> ??
  7089. 2622F ::
  7090. 26289 #  <CFFh>
  7091. 26293 :: DUPSIXFIVERPITEROLLDROPSKIP
  7092. 262BB ::
  7093. 26301 ::
  7094. 2635E P
  7095. 265C5 :: NS:DUPTRUE
  7096. 265D9 :: NS:#1+TRUE
  7097. 265ED P
  7098. 26886 ::
  7099. 268A4 ::
  7100. 268C2 P  GetXLIBBits01
  7101. 26906 ::
  7102. 26924 ::
  7103. 26942 P
  7104. 2699F ::
  7105. 269BD :: NS:CMDXLIB?
  7106. 269BD @  Is stk1 XLIB with #libnum > #700? (1:XLIB -> 1:T/F)
  7107. 269DB P  NS:CMDLIB?
  7108. 269DB @  Is stk1 XLIB with #libnum > #700? (1:XLIB -> 1:T/F)
  7109. 269E7 P  NS:HARDROMXLIB?
  7110. 269E7 @  Is stk1 in built-in ROM? (1:XLIB -> 1:T/F)
  7111. 26A2D :: HP:?OKINALG
  7112. 26A2D @  Is stk1 a built-in function (Ok in ALG? ) (1:Any -> 1:T/F)
  7113. 26A82 :: NS:?secoOKINALG
  7114. 26AB9 :: NS:?rompOKINALG
  7115. 26B1D :: ?rompsecoOKINALG
  7116. 26B40 P  NS:CmdFlagSet?
  7117. 26B40 @  Alg flag cleared in XLIB (NOT xx8)
  7118. 26B73 P  NS:SpEval?
  7119. 26B73 @  (XLIB -> XLIB False / Evaluation XLIB True) 
  7120. 26BBD ::
  7121. 26BEA ::
  7122. 26C1C P  NS:DUPNOT?SEMI
  7123. 26C47 :: NS:DispArgs?
  7124. 26C47 @  (seco -> seco hex_display #args TRUE / seco hex #FFFFF TRUE)
  7125. 26C65 P  ?OKINALG#args?
  7126. 26C65 @  (seco -> seco #args hex_display)
  7127. 26D96 rf r_CK5&Dispatch
  7128. 26D9B rf r_CK4&Dispatch
  7129. 26DA0 rf r_CK3&Dispacth
  7130. 26DA5 rf r_CK2&Dispatch
  7131. 26DAA rf r_CK1&Dispatch
  7132. 26DAF rf r_CK0
  7133. 26DB4 rf r_hex_argsinf
  7134. 26DB9 rf r_hex_args1
  7135. 26DBE rf r_hex_args2
  7136. 26DC3 rf r_hex_args3
  7137. 26DC8 rf r_hex_args4
  7138. 26DCD rf r_hex_args5
  7139. 26DD2 h# hex_argsinf
  7140. 26DD2 h# hex_#0140950
  7141. 26DE3 h# hex_args1
  7142. 26DE3 h# hex_014050
  7143. 26DF3 h# hex_args2
  7144. 26DF3 h# hex_01406050
  7145. 26DF3 h# hex_args3
  7146. 26E05 h# hex_0140606050
  7147. 26E05 h# hex_args4
  7148. 26E19 h# hex_014060606050
  7149. 26E2F h# hex_args5
  7150. 26E2F h# hex_01406060606050
  7151. 26E47 h# hex_args=
  7152. 26E47 h# hex_00700
  7153. 26E56 P  -> # # T/F ???
  7154. 26F0D P  NS:DerDataGet
  7155. 26F0D @  Gets XLIB header flag 4 & object if Set
  7156. 26F0D @  (1:ROMPTR -> 3:ROMPTR 2:Ob 1:TRUE / 2:ROMPTR 1:FALSE) (???)
  7157. 26F1B P  NS:RinvDataGet
  7158. 26F1B @  At evaluation: (sym-orig ID MetaRight MetaArg ID -> sym ID Meta T/F)
  7159. 26F29 P  NS:MakeDataGet
  7160. 26F37 P  NS:AppexpDataGet
  7161. 26F45 P  NS:RulesDataGet
  7162. 26F53 P  NS:IntgDataGet
  7163. 26F61 P  NS:WhereDataGet
  7164. 26F6F P  NS:FormDataGet
  7165. 26FAE mc HP:GETPTRFALSE
  7166. 27050 mc NAlgOFGet
  7167. 2707D ::
  7168. 2709B :: NS:RclDataTRUE
  7169. 270AF ::
  7170. 270DC ::
  7171. 270FA ::
  7172. 27127 ::
  7173. 27140 P
  7174. 271B9 :: RclDbugData
  7175. 271FA P
  7176. 27224 P  NS:NOTBAKcase
  7177. 27234 P  NS:NOTLIBcase
  7178. 27244 P  HP:NOTLISTcase
  7179. 27254 P  HP:NOTSECOcase
  7180. 27264 P  HP:NOTROMPcase
  7181. 27270 mc MCTYPE<>Ccase
  7182. 27270 @  If copy type(stk1) <> C.A , then COLA else SKIP
  7183. 2729B ::
  7184. 272C8 {} {manylams}
  7185. 272CD l' LAM_'ttt
  7186. 272DC l' LAM_'str
  7187. 272EB l' LAM_'ofs
  7188. 272FA l' LAM_'tok
  7189. 27309 l' LAM_'rbv
  7190. 27318 l' LAM_'idfflg
  7191. 2732D l' LAM_'tmpop
  7192. 27340 l' LAM_'tmppdat
  7193. 27357 l' LAM_'ploc
  7194. 27368 l' LAM_'bv
  7195. 27375 l' LAM_'unbound
  7196. 273AA ::
  7197. 273CD ::
  7198. 274D1 ::
  7199. 274EF :: 2DROP'xNEG
  7200. 2750D :: 2DROP'xNEGNEG
  7201. 27530 ::
  7202. 27553 ::
  7203. 2756C ::
  7204. 275AD ::
  7205. 275C1 ::
  7206. 2761B ::
  7207. 2763E ::
  7208. 27670 ::
  7209. 2768E ::
  7210. 276A2 ::
  7211. 276D4 ::
  7212. 276F7 ::
  7213. 2771F ::
  7214. 27742 ::
  7215. 27797 ::
  7216. 277B0 ::
  7217. 277C9 ::
  7218. 277EC ::
  7219. 2781E ::
  7220. 27841 ::
  7221. 27869 ::
  7222. 2788C ::
  7223. 278D7 ::
  7224. 278FA ::
  7225. 27913 ::
  7226. 27940 ::
  7227. 27963 ::
  7228. 2799A ::
  7229. 27A03 ::
  7230. 27A12 ::
  7231. 27AC6 ::
  7232. 27ADF ::
  7233. 27B0C ::
  7234. 27BA2 ::
  7235. 27BD9 ::
  7236. 27BF2 ::
  7237. 27C15 ::
  7238. 27C24 :: NS:ZEROSWAPTWO
  7239. 27C74 ::
  7240. 27CA1 ::
  7241. 27CCE ::
  7242. 27D00 ::
  7243. 27D32 CD
  7244. 27D9A CD
  7245. 27E0E ::
  7246. 27E22 ::
  7247. 27E36 ::
  7248. 27E4A ::
  7249. 27E68 ::
  7250. 27E9A ::
  7251. 27ED1 ::
  7252. 27EE0 ::
  7253. 27F1C :: DROPID>LAMTRUE
  7254. 27F35 :: DUPID>CMDDROPTYPEIDNT?
  7255. 27F58 :: DROPFALSETRUE
  7256. 27FA3 ::
  7257. 27FC1 ::
  7258. 27FEE ::
  7259. 2804D :: repl/
  7260. 2806B ::
  7261. 2807A {} null{}
  7262. 280C0 ::
  7263. 28106 ::
  7264. 2813D ::
  7265. 28174 :: #1-UNROTEvalNoCKSWAP
  7266. 2818D ::
  7267. 281B5 :: #1-UNROT%>C%SWAP
  7268. 281CE :: Meta&{i*+}
  7269. 281D3 {} {xix*x+}
  7270. 281F6 ::
  7271. 2821E :: #1-UNROT%POL>%REC%>C%SWAP
  7272. 2823C :: Example:A B + #3 -> + A B COS * A B SIN * i * + #C
  7273. 28296 :: HP:metatail
  7274. 28296 @  (Meta #n -> #n-1-size(Meta) Meta)
  7275. 282B4 ::
  7276. 282D7 ::
  7277. 282FA ::
  7278. 28318 P
  7279. 283C4 :: NS:COLAskipcola
  7280. 283C4 @  :: :: :: COLAskipcola <Never> ; <Never> <This> <Never> ; <Rest> ;
  7281. 283D8 :: NS:3SKIP
  7282. 283F1 :: 11&10&9&8GETLAM
  7283. 2840F :: 8&9&10&11PUTLAM
  7284. 2842D ::
  7285. 2844B ::
  7286. 2845A :: 'POLARDUMMY
  7287. 2846E :: 'COMPLEXDUMMY
  7288. 284C3 :: 
  7289. 284E6 P
  7290. 28558 :: HP:#1-UNROT
  7291. 2856C :: HP:tok=casedrop
  7292. 2856C :: OVEREQUALcasedrop
  7293. 28585 :: NS:DROPCOLA
  7294. 28585 @  :: DROP COLACOLA ;
  7295. 28599 ::
  7296. 285C6 ::
  7297. 285EE :: NS:ONE1PUTLAM
  7298. 28602 :: NS:ZERO1PUTLAM
  7299. 28616 ::
  7300. 28634 ::
  7301. 28657 ::
  7302. 28670 ::
  7303. 28689 ::
  7304. 286AC ::
  7305. 286D4 :: ClrNumFlagRDROPFALSE
  7306. 286ED :: SetNumFlagRDROPFALSE
  7307. 28706 ::
  7308. 28724 ::
  7309. 28742 ::
  7310. 28774 ::
  7311. 287C4 ::
  7312. 287D3 ::
  7313. 28823 ::
  7314. 28841 ::
  7315. 28850 ::
  7316. 28878 ::
  7317. 28896 ::
  7318. 288B4 ::
  7319. 288C3 ::
  7320. 288FA ::
  7321. 28918 ::
  7322. 28945 ::
  7323. 28972 ::
  7324. 289A9 :: UNROT2DROP6UNROLL5ROLL#1+5UNROLLTRUETRUE
  7325. 289E0 ::
  7326. 28A08 $  "SQRT"
  7327. 28A1A $  "SQ"
  7328. 28A28 $  "INV"
  7329. 28A38 :: SYMUN
  7330. 28A38 @  Internal _ (1:sym)
  7331. 28A65 :: ForceUnit
  7332. 28AA6 :: ForceRompUnit
  7333. 28AC9 :: ForceNameUnit
  7334. 28AE2 :: SETInvUnitERR
  7335. 28AE7 #  <B01h>
  7336. 28B05 :: ForceSecoUnit
  7337. 28B41 ::
  7338. 28BAF ::
  7339. 28BB4 {} DoubleNULL{}
  7340. 28BB4 @  { {} }
  7341. 28BFF ::
  7342. 28C4A ::
  7343. 28CC7 ::
  7344. 28D08 P
  7345. 28D7B ::
  7346. 28D99 ::
  7347. 28DB7 ::
  7348. 28DCB ::
  7349. 28E20 ::
  7350. 28E43 ::
  7351. 28E7A ::
  7352. 28EA2 ::
  7353. 28EDE ::
  7354. 28F92 ::
  7355. 28FB5 ::
  7356. 28FC9 ::
  7357. 2900F ::
  7358. 29023 ::
  7359. 29046 ::
  7360. 29082 ::
  7361. 2909B ::
  7362. 290BE ::
  7363. 290E6 ::
  7364. 2911D ::
  7365. 29140 P
  7366. 291AB P
  7367. 291B7 ::
  7368. 29202 :: NS:DROMPTR@Ncase
  7369. 29216 ::
  7370. 29248 ::
  7371. 2927A ::
  7372. 29298 ::
  7373. 292CF :: NS:TRUE1PUTLAM
  7374. 292E3 ::
  7375. 292F7 P
  7376. 293A4 ::
  7377. 29417 ::
  7378. 29494 ::
  7379. 294A8 ::
  7380. 294CB ::
  7381. 294DF ::
  7382. 294F3 ::
  7383. 29525 ::
  7384. 2957A P
  7385. 2965B ::
  7386. 29692 ::
  7387. 296D8 ::
  7388. 2970A $  "Invalid Expression"
  7389. 29738 P
  7390. 29829 P
  7391. 298AA ::
  7392. 298D7 P
  7393. 29993 P
  7394. 29A51 P
  7395. 29A8D P
  7396. 29BC2 P
  7397. 29C7C P
  7398. 29CC7 P
  7399. 29D5F P
  7400. 29DCC P  NS:SETPosFlowERR
  7401. 29DDC P  NS:SETNegFlowERR
  7402. 29DEC P  NS:SETOvrFlowERR
  7403. 29DFC P  NS:SETUndfResERR
  7404. 29E0C P  NS:SETInfResERR
  7405. 29E21 mc NS:PACKAB
  7406. 29E46 mc HP:PACK
  7407. 29E46 @  Convert %% to % (A/B to A)
  7408. 29FD0 mc HP:POP1%SPLITA
  7409. 29FD0 @  Pop stk1 (%) cvt'd to %% into A.A/A.S/B.W, save regs
  7410. 29FDA mc HP:POP1%
  7411. 29FDA @  Pop stk1 (%) into A.W, save regs
  7412. 29FF8 mc NS:POP2%SPLITAC
  7413. 29FF8 @  Pop stk2 and stk1 (%) into A/B and C/D as %%, save regs
  7414. 2A002 mc HP:POP2%
  7415. 2A002 @  Pop stk2 and stk1 (%) into A.W and C.W. save regs
  7416. 2A060 mc NS:POP1%%
  7417. 2A060 @  Pop stk1 (%%) into A.A/A.S/B.W, save regs
  7418. 2A0B1 mc NS:POP2%%
  7419. 2A0B1 @  Pop stk2 and stk1 (%%) into A.A/A.S/B.W and C.A/C.S/D.W, save regs
  7420. 2A181 @  XFER: load regs D,B,D1,D0 (uses C)
  7421. 2A188 mc HP:PUSH%
  7422. 2A188 @  Push A.W as %, restore regs
  7423. 2A235 mc NS:PUSH%%LOOP
  7424. 2A235 @  Push A.A/A.S/B.W as %%, restore regs and continue RPL
  7425. 2A23D mc HP:PUSH%LOOP
  7426. 2A23D @  Push A.W as %, restore regs and continue RPL
  7427. 2A241 @  MC: continue RPL
  7428. 2A24B mc NS:PUSH%%
  7429. 2A24B @  Push A.A/A.S/B.W as %%, restore regs
  7430. 2A2B4 %  HP:%0
  7431. 2A2C9 %  HP:%1
  7432. 2A2DE %  HP:%2
  7433. 2A2F3 %  HP:%3
  7434. 2A308 %  HP:%4
  7435. 2A31D %  HP:%5
  7436. 2A332 %  HP:%6
  7437. 2A347 %  HP:%7
  7438. 2A35C %  HP:%8
  7439. 2A371 %  NS:%9
  7440. 2A386 %  HP:%-1
  7441. 2A39B %  HP:%-2
  7442. 2A3B0 %  HP:%-3
  7443. 2A3C5 %  HP:%-4
  7444. 2A3DA %  HP:%-5
  7445. 2A3EF %  HP:%-6
  7446. 2A404 %  HP:%-7
  7447. 2A419 %  HP:%-8
  7448. 2A42E %  HP:%-9
  7449. 2A443 %  HP:%PI
  7450. 2A458 %% NS:%%PI
  7451. 2A472 %  HP:%MAXREAL
  7452. 2A487 %  HP:%-MAXREAL
  7453. 2A49C %  HP:%MINREAL
  7454. 2A4B1 %  HP:%-MINREAL
  7455. 2A4C6 %% HP:%%0
  7456. 2A4E0 %% HP:%%1
  7457. 2A4FA %% HP:%%2
  7458. 2A514 %% HP:%%3
  7459. 2A52E %% HP:%%4
  7460. 2A548 %% HP:%%5
  7461. 2A562 %% HP:%%.1
  7462. 2A57C %% HP:%%.5
  7463. 2A596 %% HP:%%10
  7464. 2A5B0 P  HP:%%>%
  7465. 2A5B0 @  Internal LR->R (1:%% -> 1:%)
  7466. 2A5C1 P  HP:%>%%
  7467. 2A5C1 @  Internal R->LR (1:% -> 1:%%)
  7468. 2A5D2 :: HP:SETDEG
  7469. 2A5D2 @  Internal DEG
  7470. 2A5F0 :: HP:SETRAD
  7471. 2A5F0 @  Internal RAD
  7472. 2A604 :: HP:SETGRAD
  7473. 2A604 @  Internal GRAD
  7474. 2A622 :: HP:%D>R
  7475. 2A622 @  Internal D->R (1:% -> 1:%)
  7476. 2A62C %% HP:PI/180
  7477. 2A655 :: HP:%R>D
  7478. 2A655 @  Internal R->D (1:% -> 1:%)
  7479. 2A673 :: HP:%>HMS
  7480. 2A673 @  Internal ->HMS (1:% -> 1:%)
  7481. 2A68C :: HP:%HMS>
  7482. 2A68C @  Internal HMS-> (1:% -> 1:%)
  7483. 2A6A0 :: HP:%HMS+
  7484. 2A6A0 @  Internal HMS+ (2:% 1:% -> 1:%)
  7485. 2A6C8 :: HP:%HMS-
  7486. 2A6C8 @  Internal HMS- (2:% 1:% -> 1:%)
  7487. 2A6DC :: HP:%%MAX
  7488. 2A6DC @  Internal MAX (2:%% 1:%% -> 1:%%)
  7489. 2A6F5 :: HP:%MAX
  7490. 2A6F5 @  Internal MAX (2:% 1:% -> 1:%max)
  7491. 2A70E :: HP:%MIN
  7492. 2A70E @  Internal MIN (2:% 1:% -> 1:%min)
  7493. 2A727 P  NS:%%0<
  7494. 2A738 P  HP:%0<
  7495. 2A75A P  HP:%%0=
  7496. 2A76B P  HP:%0=
  7497. 2A788 P  HP:%%0>
  7498. 2A799 P  HP:%0>
  7499. 2A7BB :: HP:%%0<>
  7500. 2A7CF :: HP:%0<>
  7501. 2A7E3 :: HP:%%0>=
  7502. 2A7F7 :: HP:%0>=
  7503. 2A80B :: HP:%%0<=
  7504. 2A81F P  HP:%%<
  7505. 2A871 P  HP:%<
  7506. 2A87F P  HP:%%>
  7507. 2A88A P  HP:%>
  7508. 2A895 P  HP:%%>=
  7509. 2A8A0 P  HP:%>=
  7510. 2A8AB P  HP:%%<=
  7511. 2A8B6 P  HP:%<=
  7512. 2A8C1 P  HP:%=
  7513. 2A8CC P  HP:%<>
  7514. 2A8D7 P  HP:%SGN
  7515. 2A8D7 @  Internal SIGN (1:% -> 1:%)
  7516. 2A8F0 P  HP:%%ABS
  7517. 2A900 P  HP:%ABS
  7518. 2A910 P  HP:%%CHS
  7519. 2A920 P  HP:%CHS
  7520. 2A930 P  HP:%MANTISSA
  7521. 2A943 P  HP:%%+
  7522. 2A94F P  HP:%%-
  7523. 2A95B P  HP:%>%%-
  7524. 2A95B @  Internal - (2:% 1:% -> 1:%%)
  7525. 2A974 P  HP:%+
  7526. 2A981 P  HP:%-
  7527. 2A99A P  HP:%%*
  7528. 2A9A6 P  NS:%>%%*
  7529. 2A9A6 @  Internal * (2:% 1:% -> 1:%%)
  7530. 2A9AF @  MC: A:B * C:D (%%), push to stack and continue RPL
  7531. 2A9BC P  HP:%*
  7532. 2A9C9 P  HP:%OF
  7533. 2A9C9 @  Internal % (2:% 1:% -> 1:%)
  7534. 2A9E8 P  HP:%%/
  7535. 2A9FE P  HP:%/
  7536. 2AA0B P  HP:%T
  7537. 2AA30 P  HP:%CH
  7538. 2AA5F P  HP:%%^
  7539. 2AA70 P  HP:%^
  7540. 2AA70 @  Internal ^ (2:% 1:% -> 1:%)  (Errors if not real result)
  7541. 2AA81 P  HP:%NROOT
  7542. 2AA92 P  HP:%%1/
  7543. 2AA9E P  HP:%>%%1/
  7544. 2AA9E @  Internal INV (1:% -> 1:%%)
  7545. 2AAAF P  HP:%1/
  7546. 2AAAF @  Internal INV (1:% -> 1:%)
  7547. 2AAEA P  HP:%%SQRT
  7548. 2AAF6 P  HP:%>%%SQRT
  7549. 2AB09 P  HP:%SQRT
  7550. 2AB09 @  Internal SQRT (1:% (not <0)
  7551. 2AB1C P  HP:%%EXP
  7552. 2AB2F P  HP:%EXP
  7553. 2AB42 P  HP:%EXPM1
  7554. 2AB5B P  HP:%%LN
  7555. 2AB6E P  HP:%LN
  7556. 2AB6E @  Internal LN (1:% -> 1:%) (% >= 0)
  7557. 2AB81 P  HP:%LOG
  7558. 2AB81 @  Internal LOG (1:% -> 1:%) (% >= 0)
  7559. 2AB94 P  HP:%%LNP1
  7560. 2ABA7 P  HP:%LNP1
  7561. 2ABBA P  HP:%ALOG
  7562. 2ABDC P  HP:%MOD
  7563. 2ABEF P  HP:%SIN
  7564. 2AC06 P  HP:%%SIN
  7565. 2AC17 P  HP:%%SINDEG
  7566. 2AC27 P  NS:%%SINRAD
  7567. 2AC40 P  HP:%COS
  7568. 2AC57 P  HP:%%COS
  7569. 2AC68 P  HP:%%COSDEG
  7570. 2AC78 P  HP:%%COSRAD
  7571. 2AC91 P  HP:%TAN
  7572. 2ACA8 P  HP:%%TANRAD
  7573. 2ACC1 P  HP:%ASIN
  7574. 2ACC1 @  Internal ASIN (1:% -> 1:%) (abs(arg)<=1)
  7575. 2ACD8 P  HP:%%ASINRAD
  7576. 2ACF1 P  HP:%ACOS
  7577. 2ACF1 @  Internal ACOS (1:% -> 1:%) (abs(arg)<=1)
  7578. 2AD08 P  HP:%%ACOSRAD
  7579. 2AD21 P  HP:%ATAN
  7580. 2AD21 @  Internal ATAN (1:% -> 1:%)
  7581. 2AD38 P  HP:%ANGLE
  7582. 2AD4F P  HP:%%ANGLE
  7583. 2AD5B P  HP:%>%%ANGLE
  7584. 2AD6C P  HP:%%ANGLEDEG
  7585. 2AD7C P  HP:%%ANGLERAD
  7586. 2AD95 P  HP:%%SINH
  7587. 2ADAE P  HP:%SINH
  7588. 2ADC7 P  HP:%%COSH
  7589. 2ADDA P  HP:%COSH
  7590. 2ADED P  HP:%TANH
  7591. 2AE00 P  HP:%ASINH
  7592. 2AE13 P  HP:%ACOSH
  7593. 2AE13 @  Internal ACOSH (1:% -> 1:%) (% >= 1)
  7594. 2AE26 P  HP:%ATANH
  7595. 2AE26 @  Internal ATANH (1:% -> 1:%) (-1 < % < 1)
  7596. 2AE39 P  HP:%EXPONENT
  7597. 2AE4C P  HP:%NFACT
  7598. 2AE62 P  HP:%COMB
  7599. 2AE75 P  HP:%PERM
  7600. 2AE9B @  MC XFER: pop stk1 (%) into A.W, save regs
  7601. 2AEA2 @  MC XFER: pop stk1 (%) cvt'd to %% into A.A/A.S/B.W, save regs
  7602. 2AEA9 @  MC XFER: pop stk2 and stk1 (%) into A/B and C/D as %%, save regs
  7603. 2AEB0 @  MC XFER: pop stk1 (%%) into A.A/A.S/B.W, save regs
  7604. 2AEB7 @  MC XFER: pop stk2 and stk1 (%%) into A.A/A.S/B.W and C.A/C.S/D.W, save regs
  7605. 2AED0 @  MC XFER: push A.A/A.S/B.W as %%, restore regs and continue RPL
  7606. 2AEDB @  MC: cvt %% to %, push to stk and continue RPL
  7607. 2AEEF @  MC XFER: push A.W as %, restore regs and continue RPL
  7608. 2AF27 P  HP:%%H>HMS
  7609. 2AF27 @  Internal ->HMS (1:%%)
  7610. 2AF3A P  NS:%HMS>%%
  7611. 2AF3A @  Internal HMS-> (1:% -> 1:%%)
  7612. 2AF4D P  HP:%FP
  7613. 2AF60 P  HP:%IP
  7614. 2AF73 P  HP:%CEIL
  7615. 2AF86 P  HP:%FLOOR
  7616. 2AF99 P  HP:%%FLOOR
  7617. 2AF99 P  HP:%%INT
  7618. 2AFAC P  NS:%INT
  7619. 2AFC2 P  HP:%RAN
  7620. 2B044 :: HP:%RANDOMIZE
  7621. 2B044 @  Internal RDZ (1:% ->)
  7622. 2B07B P  HP:DORANDOMIZE
  7623. 2B07B @  Deep internal RDZ (1:%)
  7624. 2B0C4 :: HP:%FACT
  7625. 2B0C4 @  Internal ! (1:% -> 1:%)
  7626. 2B0CE %  NS:%260
  7627. 2B0ED :: %%1e10000>%
  7628. 2B0F2 %% %%1e10000
  7629. 2B139 %  NS:%-260
  7630. 2B171 :: NS:%INTFACT
  7631. 2B171 @  (1:%integer)
  7632. 2B19E :: %NEGFACTOVERFLOW
  7633. 2B1BC %% %%1e-10000
  7634. 2B1D6 %% %%-1e-10000
  7635. 2B1FA ::
  7636. 2B1FF %% HP:%%7
  7637. 2B282 ::
  7638. 2B2C3 ::
  7639. 2B2DC %% HP:%%12
  7640. 2B300 %% HP:%%60
  7641. 2B31F %% %%-495.920119017593
  7642. 2B343 %% %%30.3479606073615
  7643. 2B36C %% %%-76.5594818140208
  7644. 2B390 %% %%9.33584905660377
  7645. 2B3B9 %% %%-1.21142857142857
  7646. 2B3DD %% HP:%%.4
  7647. 2B410 %% %%0.918938533204673
  7648. 2B45C :: HP:2%>%%
  7649. 2B45C @  (2:% 1:% -> 2:%% 1:%%)
  7650. 2B470 :: HP:2%%>%
  7651. 2B470 @  (2:%% 1:%% -> 2:% 1:%)
  7652. 2B48E :: HP:%REC>%POL
  7653. 2B498 :: HP:%%R>P
  7654. 2B4BB :: HP:%POL>%REC
  7655. 2B4C5 :: HP:%%P>R
  7656. 2B4F2 :: HP:%SPH>%REC
  7657. 2B529 :: HP:RNDXY
  7658. 2B529 @  Internal RND (2:% 1:% -> 1:%)
  7659. 2B53D :: HP:TRCXY
  7660. 2B53D @  Internal TRNC (2:% 1:% -> 1:%)
  7661. 2B551 P  EXECRND#
  7662. 2B551 @  RND (2:Ob 1:#parter -> 1:Ob)
  7663. 2B55D P  EXECTRNC#
  7664. 2B55D @  TRNC (2:Ob 1:#parter -> 1:Ob)
  7665. 2B590 P  MakeParter#
  7666. 2B590 @  Used by RND etc (1:% -> 1:#parter) Example: (1:%8 -> 1:<81h>)
  7667. 2B674 @  MC: internal FP (%%)
  7668. 2B67D mc HP:aMODF
  7669. 2B75E @  MC: internal CEIL (%%)
  7670. 2B767 @  MC: internal FLOOR (%%)
  7671. 2B770 mc HP:aH>HMS
  7672. 2B789 mc HP:1/X15
  7673. 2B7A7 mc HP:RSUB1
  7674. 2B7B0 mc HP:RADD1
  7675. 2B7CA mc HP:RADDF
  7676. 2B91E mc HP:MULTF
  7677. 2B91E @  A:B * C:D (%%)
  7678. 2B977 mc HP:DIVF
  7679. 2BBB5 mc HP:DIV2
  7680. 2BBE2 mc HP:CLRFRC
  7681. 2BBE2 @  Internal IP (%%)
  7682. 2BC4A mc HP:SPLITA
  7683. 2BC4A @  Convert % to %% (A to A/B)
  7684. 2BCA0 mc HP:SPLTAC
  7685. 2BCA0 @  Convert % to %% (A to A/B and C to C/D)
  7686. 2BD76 mc HP:TST15
  7687. 2BE53 mc HP:XYEX
  7688. 2BE61 mc HP:STAB0
  7689. 2BE6F mc HP:STAB2
  7690. 2BE7D mc HP:STCD0
  7691. 2BE8B mc HP:STCD2
  7692. 2BE99 mc HP:EXAB0
  7693. 2BEA7 mc HP:EXAB2
  7694. 2BEB5 mc HP:RCAB0
  7695. 2BEC0 mc HP:RCAB2
  7696. 2BECB mc HP:RCCD0
  7697. 2BED6 mc HP:RCCD2
  7698. 2BEE1 mc HP:CCSB1
  7699. 2BEEC mc HP:RNDC[B]
  7700. 2BFE3 mc HP:GETAB1
  7701. 2BFFD mc HP:GETAB0
  7702. 2C031 mc HP:GETCD0
  7703. 2C04B mc HP:PUTAB0
  7704. 2C09F :: NS:%UTPN
  7705. 2C09F @  Internal UTPN (3:% 2:% 1:% -> 1:%)
  7706. 2C11C P  UTPNinlim
  7707. 2C149 :: NS:%UTPC
  7708. 2C149 @  Internal UTPC (2:% 1:% -> 1:%) (SWAP%0 UTPCin)
  7709. 2C158 CD UTPCin
  7710. 2C174 :: NS:%UTPF
  7711. 2C174 @  Internal UTPF (3:% 2:% 1:% -> 1:%) (UNROT UTPFin)
  7712. 2C17E CD UTPFin
  7713. 2C19A :: NS:%UTPT
  7714. 2C19A @  Internal UTPT (2:% 1:% -> 1:%) (SWAP%0 UTPTin)
  7715. 2C1A9 CD UTPTin
  7716. 2C1C5 %% NS:%%100
  7717. 2C1DF :: NS:%%1+
  7718. 2C1F3 :: STOsigma
  7719. 2C1F3 @  Internal STOSigma (1:Any)
  7720. 2C1FD g' ID_sigmaDAT
  7721. 2C216 :: STOsigma2
  7722. 2C22F :: CLsigma
  7723. 2C22F @  Internal CLSigma
  7724. 2C248 :: CLsigma2
  7725. 2C270 :: RCLsigma
  7726. 2C293 :: RCLsigma2
  7727. 2C293 @  Internal RCLSigma -> Contents True/False
  7728. 2C2AC :: CKRCLsigma
  7729. 2C2AC @  Internal RCLSigma
  7730. 2C2C5 :: CK%RCLsigma
  7731. 2C2C5 @  Recalls sigmaDAT & checks it is a real array
  7732. 2C2D9 :: %sigma+
  7733. 2C2D9 @  Internal Sigma+ (1:%)
  7734. 2C2E8 :: %Stosigma2
  7735. 2C2E8 @  Stores [%] in ID_sigmaDAT (1:%)
  7736. 2C32E :: []sigma+
  7737. 2C32E @  Internal Sigma+ (1:Array)
  7738. 2C423 :: sigma-
  7739. 2C423 @  Internal Sigma-
  7740. 2C450 ::
  7741. 2C487 ::
  7742. 2C491 #  <1h>
  7743. 2C4A0 ::
  7744. 2C4B4 ::
  7745. 2C4D7 CD
  7746. 2C535 :: Nsigma
  7747. 2C535 @  Internal NSigma
  7748. 2C558 :: MAXsigma
  7749. 2C558 @  Internal MAXSigma
  7750. 2C571 :: MEAN
  7751. 2C571 @  Internal MEAN
  7752. 2C58A :: MINsigma
  7753. 2C58A @  Internal MINSigma
  7754. 2C5A3 :: SDEV
  7755. 2C5A3 @  Internal SDEV
  7756. 2C5BC :: TOT
  7757. 2C5BC @  Internal TOT
  7758. 2C5D5 :: VAR
  7759. 2C5D5 @  Internal VAR
  7760. 2C5EE ::
  7761. 2C625 ::
  7762. 2C684 :: COLsigma
  7763. 2C684 @  Internal COLSigma (2:%/Array,1:%)
  7764. 2C6A2 :: 5TOsigmaPAR
  7765. 2C6A2 @  Store levels 1-5 into 'SigmaPAR'
  7766. 2C6C5 :: XCOL
  7767. 2C6C5 @  Internal XCOL (1:%)
  7768. 2C6DE :: YCOL
  7769. 2C6DE @  Internal YCOL (1:%)
  7770. 2C701 :: GETXCOL
  7771. 2C715 :: GETYCOL
  7772. 2C72E :: RclsigmaPAR>
  7773. 2C72E @  Recalls & explodes sigmaPAR (makes one if necessary)
  7774. 2C738 g' ID_sigmaPAR
  7775. 2C751 :: STODefsigmaPAR
  7776. 2C751 @  Makes & stores default sigmaPAR
  7777. 2C756 {} DefsimgaPAR{}
  7778. 2C7EC #  <11118h>
  7779. 2C7F6 ::
  7780. 2C81E ::
  7781. 2C84B :: NS:CORR
  7782. 2C84B @  Internal CORR
  7783. 2C8F5 :: NS:COV
  7784. 2C8F5 @  Internal COV
  7785. 2C94F :: sigmaX
  7786. 2C94F @  Internal SigmaX
  7787. 2C963 :: sigmaY
  7788. 2C963 @  Internal SigmaY
  7789. 2C977 :: sigmaXX
  7790. 2C977 @  Internal SigmaX^2
  7791. 2C99A :: sigmaYY
  7792. 2C99A @  Internal SigmaY^2
  7793. 2C9BD :: sigmaXY
  7794. 2C9BD @  Internal SigmaX*Y
  7795. 2C9EA ::
  7796. 2C9FE ::
  7797. 2CA12 ::
  7798. 2CA30 :: NS:LR
  7799. 2CA30 @  Internal LR (Doesn't ->TAG with "Intercept" and "Slope")
  7800. 2CB02 :: NS:PREDY
  7801. 2CB02 @  Internal PREDY (1:% -> 1:%)
  7802. 2CB75 :: NS:PREDX
  7803. 2CB75 @  Internal PREDX (1:% -> 1:%)
  7804. 2CBED ::
  7805. 2CC10 ::
  7806. 2CC2E ::
  7807. 2CC74 ::
  7808. 2CCBA P
  7809. 2CCDF P  NS:ColumnMAX
  7810. 2CCDF @  (2:#column 1:[]2D -> 1:%)
  7811. 2CCF8 P  NS:ColumnMIN
  7812. 2CCF8 @  (2:#column 1:[]2D -> 1:%)
  7813. 2CD04 P  NS:ColumnTOT
  7814. 2CD13 P  NS:ColumnMEAN
  7815. 2CD22 P  NS:ColumnVAR
  7816. 2CD31 P  NS:ColumnSDEV
  7817. 2CDC5 P
  7818. 2CE53 P  NS:ColumnSQR
  7819. 2CE53 @  Sum of squares (4:#column 3:[%]2D 2:%% 1:False -> 1:%%)
  7820. 2CEC0 P
  7821. 2CF5F P
  7822. 2D271 P  CKsigmaDATA
  7823. 2D271 @  Checks that stk1 is a valid array for stat operations
  7824. 2D2E6 P  SETNosigmaDATERR
  7825. 2D2E6 @  Error: Nonexistent SigmaDAT
  7826. 2D2EB @  MC: Error: Nonexistent SigmaDAT
  7827. 2D2F6 P
  7828. 2D306 P
  7829. 2D316 P
  7830. 2D326 P
  7831. 2D342 @  Library 00C (XLIB 12) (short)
  7832. 2D359 ::
  7833. 2D37C $  "p% @-# 1"
  7834. 2D396 #  HP_MAXRETRY
  7835. 2D396 @  <Ah>
  7836. 2D3A0 l' HP:LAMPKNO
  7837. 2D3A0 l' LAM_'PKNO
  7838. 2D3B1 l' LAM_'PACKET
  7839. 2D3C6 l' HP:LAMRETRY
  7840. 2D3C6 l' LAM_'RETRY
  7841. 2D3D9 l' LAM_'ERRMSG
  7842. 2D3EE l' LAM_'KP
  7843. 2D3FB l' HP:LAMLNAME
  7844. 2D3FB l' LAM_'LNAME
  7845. 2D40E l' LAM_'OBJ
  7846. 2D41D l' LAM_'OPOS
  7847. 2D42E l' LAM_'EXCHP
  7848. 2D441 :: HP:'LamKPSto
  7849. 2D45A l' LAM_'KLIST
  7850. 2D46D l' HP:LAMKMODE
  7851. 2D46D l' LAM_'KMODE
  7852. 2D480 l' LAM_'KPTRN
  7853. 2D493 l' HP:LAMKRM
  7854. 2D493 l' LAM_'KRM
  7855. 2D4A2 l' LAM_'MaxR
  7856. 2D4B3 ::
  7857. 2D4DB {}
  7858. 2D517 :: HN:EXCHINITPK
  7859. 2D53F ::
  7860. 2D544 CD
  7861. 2D564 *  HP:Loop
  7862. 2D58C :: HP:SENDEOT
  7863. 2D5C3 #  <C02h>
  7864. 2D5E1 :: HP:SEND_PACKET
  7865. 2D5EB ::
  7866. 2D5F5 {}
  7867. 2D631 ::
  7868. 2D645 ::
  7869. 2D668 ::
  7870. 2D6AE ::
  7871. 2D6C2 #  <40h>
  7872. 2D6FE ::
  7873. 2D71C ::
  7874. 2D730 :: HP:KDispRow2
  7875. 2D730 @  Shows IO line 2
  7876. 2D74E :: HP:KDispStatus2
  7877. 2D74E @  Show IO status
  7878. 2D76C ::
  7879. 2D78F ::
  7880. 2D7AD ::
  7881. 2D816 :: RECN
  7882. 2D816 @  Internal RECN (1:$/ID/LAM) (If NULL$TEMP then this is RECV)
  7883. 2D839 {}
  7884. 2D857 ::
  7885. 2D86B {}
  7886. 2D8A2 ::
  7887. 2D933 ::
  7888. 2D947 ::
  7889. 2D96A #  <4Bh>
  7890. 2D9A1 P  HP:SetServMode
  7891. 2D9B2 P  HP:ClrServMode
  7892. 2D9C3 ::
  7893. 2D9F5 :: SERVER
  7894. 2D9F5 @  Internal SERVER
  7895. 2DA13 {}
  7896. 2DA3B ::
  7897. 2DA4A ::
  7898. 2DA68 ::
  7899. 2DA7C #  <C0Ch>
  7900. 2DAB3 ::
  7901. 2DADB ::
  7902. 2DAF9 ::
  7903. 2DB17 ::
  7904. 2DB44 ::
  7905. 2DBDF ::
  7906. 2DC39 ::
  7907. 2DC52 ::
  7908. 2DCE8 ::
  7909. 2DCF7 ::
  7910. 2DD56 {}
  7911. 2DD6F #  <C11h>
  7912. 2DDC4 :: HN:DropSysErr$
  7913. 2DDEC ::
  7914. 2DE64 CD
  7915. 2DF01 {}
  7916. 2DF2E ::
  7917. 2DF83 ::
  7918. 2DF88 $  ":<LF>"
  7919. 2DFC8 ::
  7920. 2DFE6 ::
  7921. 2E009 ::
  7922. 2E040 ::
  7923. 2E0A9 :: HP:SENDNAK
  7924. 2E0C7 :: HP:SENDERROR
  7925. 2E0F4 :: HP:SENDPKT
  7926. 2E108 :: HP:BUILDKPACKET
  7927. 2E117 CD
  7928. 2E291 ::
  7929. 2E2B4 ::
  7930. 2E2E1 CD
  7931. 2E31F *  HP:Push#FLoop
  7932. 2E45A ::
  7933. 2E4A5 ::
  7934. 2E4BE ::
  7935. 2E4DC :: HN:APNDCRLF
  7936. 2E4F0 $  "<CR><LF>"
  7937. 2E5AB :: SENDNAME
  7938. 2E5AB @  Internal SEND (1:ID/LAM)
  7939. 2E5BF ::
  7940. 2E5FB ::
  7941. 2E619 ::
  7942. 2E650 ::
  7943. 2E678 ::
  7944. 2E691 ::
  7945. 2E6BE :: HP:InitIOEnv
  7946. 2E6CD {}
  7947. 2E6EB :: HP:SENDLIST
  7948. 2E6EB @  Internal SEND (1:{})
  7949. 2E709 ::
  7950. 2E727 ::
  7951. 2E763 ::
  7952. 2E772 ::
  7953. 2E7A4 ::
  7954. 2E7C2 ::
  7955. 2E7CC #  <3h>
  7956. 2E7D6 #  <204h>
  7957. 2E7EF :: HP:GETNAME
  7958. 2E7EF @  Internal KGET (1:$/ID/LAM)
  7959. 2E803 ::
  7960. 2E835 :: NS:GETLIST
  7961. 2E835 @  Internal KGET (1:{})
  7962. 2E83F ::
  7963. 2E876 :: HP:DOFINISH
  7964. 2E876 @  Internal FINISH
  7965. 2E87B $  "F"
  7966. 2E887 $  "G"
  7967. 2E8A2 ::
  7968. 2E8B1 $  "R"
  7969. 2E8D1 :: HP:DOPKT
  7970. 2E8D1 @  Internal PKT (2:$ 1:$)
  7971. 2E8E5 {}
  7972. 2E903 ::
  7973. 2E90D {}
  7974. 2E958 ::
  7975. 2E999 :: NS:MkIOPAR
  7976. 2E99E {} HP:StdIOPAR
  7977. 2E99E @  { 9600 0 0 0 3 1 }    (default iopar)
  7978. 2E9CB :: HP:StoIOPAR
  7979. 2E9D5 g' NS:ID_IOPAR
  7980. 2E9E6 ::
  7981. 2E9F0 {}
  7982. 2EA18 ::
  7983. 2EA4F :: HP:GetIOPAR
  7984. 2EA4F @  Recalls IOPAR
  7985. 2EA59 g' ID_IOPAR
  7986. 2EA6A :: HP:Sys@
  7987. 2EA6A @  (1:ID)
  7988. 2EAE2 :: HP:KERMOPEN
  7989. 2EB19 ::
  7990. 2EB37 P  HP:DOOPENIO
  7991. 2EB37 @  User OPENIO does P324C8 too ??
  7992. 2EB62 :: HP:OpenIO
  7993. 2EB8F ::
  7994. 2EBC6 ::
  7995. 2EC11 :: HP:%IP>#
  7996. 2EC11 @  ABS(IP(%)) -> #
  7997. 2EC25 :: HP:IOCheckReal
  7998. 2EC34 :: HP:SetIOPARErr
  7999. 2EC39 #  <C12h>
  8000. 2EC52 P  NS:BAUDOK?
  8001. 2EC84 :: HP:DOBAUD
  8002. 2EC84 @  Internal BAUD (1:%)
  8003. 2ECAC ::
  8004. 2ECCA :: HP:DOPARITY
  8005. 2ECCA @  Internal PARITY (1:%)
  8006. 2ED10 :: HP:DOTRANSIO
  8007. 2ED10 @  Internal TRANSIO (1:%)
  8008. 2ED4C :: NS:DOCKSM
  8009. 2ED4C @  Internal CKSM (1:%)
  8010. 2ED74 ::
  8011. 2EDA6 :: HP:DOKERRM
  8012. 2EDA6 @  Internal KERRM
  8013. 2EDB0 CD
  8014. 2EDE1 :: HP:DOBUFLEN
  8015. 2EDE1 @  Internal BUFLEN
  8016. 2EDF5 :: NS:DOSTIME
  8017. 2EDF5 @  Internal STIME (1:%)
  8018. 2EE18 :: HP:DOSBRK
  8019. 2EE18 @  Internal SBRK
  8020. 2EE31 P
  8021. 2EE47 ::
  8022. 2EE6F :: NS:DOXMIT
  8023. 2EE6F @  Internal XMIT (1:$)
  8024. 2EE97 :: HP:DOSRECV
  8025. 2EE97 @  Internal SRECV (1:%)
  8026. 2EEC4 :: HP:SendSetup
  8027. 2EED3 {}
  8028. 2EF1E ::
  8029. 2EF2D ::
  8030. 2EF50 ::
  8031. 2EF64 ::
  8032. 2EF82 ::
  8033. 2EFA0 ::
  8034. 2EFAA ::
  8035. 2EFC8 ::
  8036. 2EFD7 :: HP:TRPACKETFAIL
  8037. 2EFEB ::
  8038. 2F01D ::
  8039. 2F040 ::
  8040. 2F045 ::
  8041. 2F04A #  <C10h>
  8042. 2F077 ::
  8043. 2F0B3 #  <8h>
  8044. 2F0C7 ::
  8045. 2F0DB ::
  8046. 2F0E0 #  <C0Dh>
  8047. 2F12B ::
  8048. 2F14E ::
  8049. 2F162 $  "%%HP:"
  8050. 2F194 ::
  8051. 2F1FD {}
  8052. 2F211 l' HP:LAMKML
  8053. 2F211 l' LAM_'KML
  8054. 2F27F ::
  8055. 2F29D ::
  8056. 2F2B1 ::
  8057. 2F2E8 ::
  8058. 2F2FC ::
  8059. 2F383 :: HP:IncrLAMPKNO
  8060. 2F39C :: HP:GetKermPkt#
  8061. 2F3A6 #  <40h>
  8062. 2F3BF ::
  8063. 2F414 ::
  8064. 2F46E l' LAM_'KEOF
  8065. 2F47F ::
  8066. 2F49D ::
  8067. 2F4A2 #  <86h>
  8068. 2F4F2 ::
  8069. 2F506 {}
  8070. 2F529 ::
  8071. 2F542 ::
  8072. 2F560 ::
  8073. 2F56F {}
  8074. 2F592 ::
  8075. 2F5CE ::
  8076. 2F5F1 ::
  8077. 2F673 ::
  8078. 2F687 ::
  8079. 2F6AA ::
  8080. 2F6C3 ::
  8081. 2F6E6 ::
  8082. 2F6F0 {}
  8083. 2F709 ::
  8084. 2F718 ::
  8085. 2F75E ::
  8086. 2F790 ::
  8087. 2F7EA ::
  8088. 2F7FE ::
  8089. 2F830 ::
  8090. 2F880 ::
  8091. 2F8B7 ::
  8092. 2F8EE #  <C0Eh>
  8093. 2F934 :: HP:FalseFalse
  8094. 2F957 ::
  8095. 2F96B #  <40h>
  8096. 2F989 :: HP:RecvNextPkt
  8097. 2F99D ::
  8098. 2F9B1 ::
  8099. 2F9ED ::
  8100. 2FA10 ::
  8101. 2FA29 ::
  8102. 2FA6A ::
  8103. 2FA97 ::
  8104. 2FA9C #  <C0Fh>
  8105. 2FACE ::
  8106. 2FAF1 ::
  8107. 2FB28 ::
  8108. 2FB64 ::
  8109. 2FB78 ::
  8110. 2FB9B ::
  8111. 2FBD7 ::
  8112. 2FC04 ::
  8113. 2FC13 ::
  8114. 2FC63 ::
  8115. 2FD03 ::
  8116. 2FD26 P
  8117. 2FDDE ::
  8118. 2FDF7 ::
  8119. 2FE15 ::
  8120. 2FEA1 :: HP:SENDACK
  8121. 2FEB5 :: HP:SENDNULLACK
  8122. 2FEC9 :: HP:KVISLF
  8123. 2FEDD :: HP:KVIS
  8124. 2FEF1 P
  8125. 2FEFD P
  8126. 2FFB4 *  HP:GetStrLenStk
  8127. 2FFB7 mc NS:GetStrLenC
  8128. 2FFBA *  HP:GetStrLen
  8129. 3016B :: HP:KINVISLF
  8130. 3017A CD
  8131. 30370 ::
  8132. 303AC ::
  8133. 303B6 CD
  8134. 30477 ::
  8135. 30486 CD
  8136. 30607 ::
  8137. 30634 CD
  8138. 3073A ::
  8139. 30771 P
  8140. 30794 P  HP:VERSTRING
  8141. 30794 @  Binary file header (HPHP48-B)
  8142. 307E2 :: NS:GETKP
  8143. 30805 P  HP:SUB$1#
  8144. 30805 @  Nth char of string as # (2:$ 1:# -> 1:#)
  8145. 30833 ::
  8146. 3088E ::
  8147. 308A7 CD
  8148. 30914 :: HP:ACK_INIT
  8149. 30928 CD
  8150. 309EC ::
  8151. 30A0A CD
  8152. 30B1D :: HP:CHOOSE_INIT
  8153. 30B22 $  "~* @-#Y"
  8154. 30B80 CD
  8155. 30BBE :: HP:ENCODE1PKT
  8156. 30BD7 P  HP:ENCODE
  8157. 30D31 :: HP:DECODE
  8158. 30D40 CD
  8159. 30E44 ::
  8160. 30E4E *  HP:PutSerialECk
  8161. 30E6C P
  8162. 30ED2 *  HP:OUTUART
  8163. 31289 *  HP:POPUART
  8164. 3133B P  HP:UARTBUFLEN
  8165. 3136C P  HP:FLUSHRSBUF
  8166. 31444 :: HP:PUTSERIAL
  8167. 31449 CD
  8168. 314E5 P  HP:GETSERIAL
  8169. 31579 P
  8170. 31589 P
  8171. 315C6 :: HP:CLOSEUART
  8172. 315C6 @  Internal CLOSEIO
  8173. 315CB CD
  8174. 315F9 mc NS:CloseUart
  8175. 31608 P
  8176. 3161E P  HP:OpenUartClr
  8177. 3178E P
  8178. 317E6 ::
  8179. 3180E ::
  8180. 31827 ::
  8181. 3182C #  <C15h>
  8182. 31854 :: HP:docr
  8183. 31868 :: CR
  8184. 31868 @  Internal CR
  8185. 3187C :: HP:OpenIOPrt
  8186. 318A4 :: PRSTC
  8187. 318A4 @  Internal PRSTC
  8188. 318EA ::
  8189. 318FE :: PR1
  8190. 318FE @  Internal PR1
  8191. 3194E :: PrintNotGrob
  8192. 3194E @  Prints object (Not Grob)
  8193. 31958 ::
  8194. 3196C ::
  8195. 319B7 ::
  8196. 319FD ::
  8197. 31A25 :: PRST
  8198. 31A25 @  Internal PRST
  8199. 31A6B ::
  8200. 31A84 ::
  8201. 31AA7 ::
  8202. 31ACA :: Print[]
  8203. 31AE8 ::
  8204. 31AF2 ::
  8205. 31B6A ::
  8206. 31BB0 ::
  8207. 31BF1 #  <C16h>
  8208. 31C23 ::
  8209. 31C32 {}
  8210. 31C37 l' LAM_'IWrap
  8211. 31C59 ::
  8212. 31C5E #  <127h>
  8213. 31CA9 {}
  8214. 31CD6 ::
  8215. 31D03 ::
  8216. 31D26 $  "    "
  8217. 31D56 :: PRVARNAME
  8218. 31D56 @  Internal PRVAR (1:ID/LAM)
  8219. 31D7E :: PrintOb
  8220. 31D7E @  Prints object (1:Any) ??
  8221. 31DAB :: OLDPRT
  8222. 31DAB @  Internal OLDPRT
  8223. 31EE2 :: HP:DOPRLCD
  8224. 31EE2 @  Internal PRLCD
  8225. 31EFB CD
  8226. 31F45 ::
  8227. 31F4A {} HP:StdPRTPAR
  8228. 31F4F %  %1.8
  8229. 31F7D :: HP:StoPRTPAR
  8230. 31F87 g' ID_PRTPAR
  8231. 31FAE ::
  8232. 31FB8 g' ID_PRTPAR
  8233. 31FFD :: HP:DODELAY
  8234. 31FFD @  Internal DELAY (1:%)
  8235. 3205C :: HP:GetChkPRTPAR
  8236. 320B1 %  %80
  8237. 320C6 ::
  8238. 320D0 #  <C13h>
  8239. 32161 :: HP:PRINT
  8240. 321E3 ::
  8241. 3221F ::
  8242. 32251 ::
  8243. 32260 ::
  8244. 32274 ::
  8245. 32283 ::
  8246. 322A1 ::
  8247. 32305 P
  8248. 32341 $  "\004"
  8249. 3234D P
  8250. 32387 :: HP:PRINTxNLF
  8251. 323B4 CD
  8252. 323E9 *  HP:PSubErr
  8253. 323F9 P  HP:REMAP
  8254. 324A6 P  HP:AllowPrlcdCl
  8255. 324C8 P  AfterOPENIO
  8256. 3251C *  HP:PopASavptr
  8257. 3251F *  HP:PopSavptr
  8258. 3252B P  HP:SetEcma94
  8259. 325AA *  HP:ChkLowBat
  8260. 32B08 *  HP:ErrFixEIRU
  8261. 32B1A *  HP:FixEIRU
  8262. 32B74 :: HP:PrintGrob
  8263. 32B74 @  Prints Grob ??
  8264. 32B88 CD
  8265. 32CC2 xl
  8266. 32F60 @  Library 00A (XLIB 10) (short)
  8267. 32F77 :: NS:ROOT
  8268. 32F77 @  Internal ROOT (3:sym/seco 2:ID 1:%/C%/{}/Unit)
  8269. 32F9F {} LAM{'nohalt}
  8270. 32F9F @  { LAM_'nohalt }
  8271. 32FC2 :: NOLASTWD#ERRJMP
  8272. 32FC2 @  :: ERRORSTO CK0NOLASTWD ERRORJMP ;
  8273. 32FF9 :: HP:SYMBNUMSOLVE
  8274. 33012 ::
  8275. 3303F :: StartROOT
  8276. 3304E {} #{FOURTEEN}
  8277. 3304E @  { <Eh> }
  8278. 3306C {} 7NULLLAM{}
  8279. 330DF :: 5GETLAM?STO_HERE
  8280. 338AF ::
  8281. 338E1 ::
  8282. 339A4 ::
  8283. 339B8 ::
  8284. 33C29 #  <A05h>
  8285. 33C83 #  <A06h>
  8286. 33CA1 #  <12Fh>
  8287. 33CBF #  <A01h>
  8288. 33CD3 #  <A02h>
  8289. 33D0A ::
  8290. 33D91 #  <A04h>
  8291. 33DAF ::
  8292. 33DE1 ::
  8293. 33DF0 CD
  8294. 33E7F CD
  8295. 33EB2 ::
  8296. 33F6B ::
  8297. 34006 ::
  8298. 34024 ::
  8299. 34042 ::
  8300. 340B0 ::
  8301. 340CE :: "+"!insert$
  8302. 340F1 ::
  8303. 34105 $  "+  "
  8304. 34115 $  "-  "
  8305. 3412F $  "?  "
  8306. 3414E ::
  8307. 34176 ::
  8308. 3419E ::
  8309. 341C6 ::
  8310. 341EE ::
  8311. 34216 ::
  8312. 3423E ::
  8313. 3425C ::
  8314. 342D4 :: 7GETLAMNOT?SEMI5&6GETLAMROT
  8315. 34301 #  HP:Attn#    
  8316. 34301 @  <A03h>
  8317. 3431F P
  8318. 3437C P
  8319. 34389 P
  8320. 34394 P
  8321. 343D1 P
  8322. 344C7 P
  8323. 34546 P
  8324. 34627 P
  8325. 346E8 P
  8326. 346F8 P
  8327. 34708 P
  8328. 3474E P
  8329. 34771 P
  8330. 3477E P
  8331. 3478E P
  8332. 3479E P
  8333. 347AE P
  8334. 347DA P
  8335. 347E7 P
  8336. 347F7 P
  8337. 34807 P
  8338. 34817 P
  8339. 34827 P
  8340. 3491B P
  8341. 34957 ::
  8342. 34961 CD
  8343. 349C6 P
  8344. 34A08 P
  8345. 34A1A P
  8346. 34A56 P
  8347. 34B2D P
  8348. 34B77 P
  8349. 34BB5 P
  8350. 34C21 P
  8351. 34C49 P
  8352. 34CE2 ::
  8353. 34CF1 CD
  8354. 34D2B {} HP:1NULLLAM{}
  8355. 34D30 l' HP:NULLLAM
  8356. 34D3C P  CkUnit>$
  8357. 34D3C @  (3:EXT/SYMB 2:#length 1:$)
  8358. 34DAC ::
  8359. 34DBB g' ID_'symb
  8360. 34DF9 :: ID_'symbPuHiddenVarERRJMP
  8361. 34E2B ::
  8362. 34E94 :: MINUSONE#=casedropONE
  8363. 34EBC ::
  8364. 34EF3 ::
  8365. 34F43 ::
  8366. 34F6B ::
  8367. 34FA2 ::
  8368. 34FC5 :: NDROP3GETLAM2NTHCOMPDROP
  8369. 34FE3 ::
  8370. 35015 ::
  8371. 35051 :: NS:!insertspc$
  8372. 35074 ::
  8373. 350B5 P
  8374. 35126 ::
  8375. 3514E :: DPRADIX?|NOT?SEMI|DROP|","
  8376. 3516C P
  8377. 35222 :: NS:DUPROLLSWAP
  8378. 35236 P
  8379. 35264 :: %>$
  8380. 35287 ::
  8381. 352AF ::
  8382. 352C3 :: C%>$
  8383. 35318 P
  8384. 353AB ::
  8385. 353C9 ::
  8386. 35491 :: HP:apndvarlst
  8387. 35491 @  Adds obj to a {} if not already there (2:{} 1:Ob -> 1:{})
  8388. 35491 @  :: OVER matchob? ?SKIP >TCOMP ;
  8389. 354AF ::
  8390. 354E1 ::
  8391. 3558E P  NS:PULLEL
  8392. 3558E @  Get element (2:[%] / [C%] 1:#element -> 2:[%] / [C%] 1:%)
  8393. 355B8 P  HP:PULLREALEL
  8394. 355B8 @  Get element (2:[%] 1:#element -> 2:[%] 1:%)
  8395. 355C8 P  HP:PULLCMPEL
  8396. 355C8 @  Get element (2:[C%] 1:#element -> 2:[C%] 1:C%)
  8397. 355D8 P  NS:PULLLONGEL
  8398. 355D8 @  Get element %, %%, C% or C%% as long
  8399. 355D8 @  (2:[] 1:#element -> 2:[] 1:%% or C%%
  8400. 35602 P  NS:PULL%%EL
  8401. 35602 @  Get element (2:[%%] 1:#element -> 2:[%%] 1:%%) (% too)
  8402. 35619 mc NS:PULLC%%EL
  8403. 35619 @  Get element (2:[C%%] 1:#element -> 2:[C%%] 1:C%%) (C% too)
  8404. 35628 P  HP:PUTEL
  8405. 35628 @  Put element (3:[%] 2:% 1:#element -> 1:[%]) (%% C% and C%% too)
  8406. 3566F P  HP:PUTREALEL
  8407. 3566F @  Put element (3:[%] 2:% 1:#element -> 1:[%] )
  8408. 356F3 P  HP:PUTCMPEL
  8409. 356F3 @  Put element (3:[C%] 2:C% 1:#element -> 1:[C%] )
  8410. 357A8 P  HP:MDIMS
  8411. 357A8 @  Get [] dims (1:1D[] -> 2:#m 1:False / 1:2D[] -> 3:#m 2:#m 1:True)
  8412. 357F0 P  1 %% and ???
  8413. 35804 P  NS:%>%%+
  8414. 35804 @  (2:% 1:% -> 1:%%)
  8415. 3581E P  NS:%>%%-
  8416. 35831 P  NS:ATTN?SEMI
  8417. 35849 P  NS:ATTNNOT?LOOP
  8418. 35864 P
  8419. 35870 P
  8420. 35AF6 P  NS:SWITCH2ARRY
  8421. 35B4F P  NS:SWITCHFLOATS
  8422. 35B4F @  Example: :: SWITCHFLOATS %CHS C%CHS %%CHS C%%CHS ; negates all
  8423. 35B90 P  NS:SWITCH2FLOATS
  8424. 35B90 @  Dispatching order: rr,or,rc,oc,lrr,olr,lro,oo
  8425. 35B90 @  r=real,c=complex,lr=longreal,o=object (usually long complex)
  8426. 35C18 :: SWAPSystemOb?>MakeUser
  8427. 35C2C :: NS:DOPRG1[]
  8428. 35C2C @  Operate on elements (%, %%, C% or C%%)
  8429. 35C2C @  (2:prg 1:[]) argument to prg is long, return it the same type as []
  8430. 35C2C @  Example: prg = :: %%CHS %%>% ; negates real array on level1
  8431. 35C63 :: NS:DOPRG2[]
  8432. 35C63 @  Operate on matrix elements on same location
  8433. 35C63 @  (3:prg 2:[% or %% orig] 1:[C% or C%% new] -> 1:[same type as 1:]
  8434. 35C63 @  prg arguments: 2:%% from orig 1:C%% from new, return C% or C%%
  8435. 35C63 @  Example: to multiply : prg = :: %%*C%% ; (INDEX@ = #element)
  8436. 35CAE :: HP:MATCON
  8437. 35CAE @  Internal CON (2:{} 1:%) (2:[%] 1:% -> 1:% / 2:[C%] 1:C% -> 1:[C%])
  8438. 35CC2 :: SMATCON
  8439. 35CC2 @  CON (2:% 1:[])   (Makes [] a user object if needed)
  8440. 35CCC :: SYSTMATCON
  8441. 35CCC @  CON (2:% 1:[]) Doesn't do CKREF (might change variable contents)
  8442. 35CEA :: SWAPRe>C%SWAP
  8443. 35CEA @  :: SWAP Re>C% SWAP ;
  8444. 35D08 :: NS:DROP3PICK
  8445. 35D35 :: NS:MATIDN
  8446. 35D35 @  Internal IDN (1:[]) (Does NEWOB if necessary)
  8447. 35D53 :: SMATIDN
  8448. 35D53 @  Internal IDN (1:[]) (Does User Obj if necessary)
  8449. 35D71 P  SYSTMATIDN
  8450. 35D71 @  Internal IDN (1:[]) (Doesn't NEWOB, might change variables)
  8451. 35DEB :: NS:MATNEG
  8452. 35DEB @  Internal NEG (1:[] -> 1:[]) (Does NEWOB if necessary)
  8453. 35DFF :: SMATNEG
  8454. 35DFF @  Internal NEG (1:Array)
  8455. 35E09 :: SYSTMATNEG
  8456. 35E09 @  Internal NEG (1:Array) (Doesn't NEWOB)
  8457. 35E09 @  :: ' NEGBLOAT SWAP DOPRG1[] ;
  8458. 35E2C :: NS:MATRND
  8459. 35E2C @  Internal RND (2:[] 1:% -> 1:[])
  8460. 35E2C @  :: ' EXECRND# EXECPRGPARTER[] ;
  8461. 35E3B :: EXECPRGPARTER[]
  8462. 35E3B @  Execute program :: %element1 #parter prg %element2.. ;
  8463. 35E3B @  (2:[] 1:%parter -> 1:[])
  8464. 35EA9 :: NS:MATTRNC
  8465. 35EA9 @  Internal TRNC (2:[] 1:%)
  8466. 35EA9 @  :: ' EXECTRNC# EXECPRGPARTER[] ;
  8467. 35EC2 :: NS:C%RND
  8468. 35EC2 @  Internal RND (2:C% 1:% -> 1:C%) 
  8469. 35EC2 @  :: ' EXECPARTER# EXECPRGPARTERC% ;
  8470. 35ED1 :: EXECPRGPARTERC%
  8471. 35ED1 @  Execute program :: %re #parter prg %im #parter prg ;
  8472. 35ED1 @  (3:C% 2:#parter 1:prg)
  8473. 35F17 :: NS:C%TRNC
  8474. 35F17 @  Internal TRNC (2:C% 1:% -> 1:C%)
  8475. 35F17 @  :: ' EXECTRNC# EXECPRGPARTERC% ;
  8476. 35F30 :: NS:MATCONJ
  8477. 35F30 @  Internal CONJ (1:[] -> 1:[]) (Does NEWOB if necessary)
  8478. 35F53 :: SMATCONJ
  8479. 35F53 @  Internal CONJ (1:Array) (Does user obj if necessary)
  8480. 35F6C :: SYSTMATCONJ
  8481. 35F6C @  Internal CONJ (1:Array) (Doesn't NEWOB)
  8482. 35F6C @  :: ' C%%CONJ SWAP DOPRG1[] ;
  8483. 35F8F :: NS:MATRE
  8484. 35F8F @  Internal RE (1:[] -> 1:[])
  8485. 35FA3 :: DUP%0CON
  8486. 35FA3 @  Make 0 Array (1:[])
  8487. 35FC6 :: DROPC%%>%%DROP
  8488. 35FEE :: NS:MATIM
  8489. 35FEE @  Internal IM (1:[] -> 1:[])
  8490. 36011 :: DROPC%%>%%SWAPDROP
  8491. 36039 :: NS:MATR>C
  8492. 36039 @  Internal R->C (2:[%re] 1:[%im] -> 1:[C%])
  8493. 360B6 :: NS:MATC>R
  8494. 360B6 @  Internal C->R (1:[C%] -> 2:[%re] 1:[%im])
  8495. 36115 :: NS:MAT+
  8496. 36115 @  Internal + (2:[] 1:[] -> 1:[])
  8497. 36129 ::
  8498. 3615B ::
  8499. 3616A :: ROTDROP_CKREF_DUP_DOPRG2[]
  8500. 36197 :: XYZW>YWZ_CKREF_DOPRG2[]
  8501. 361A6 :: ROTDROP_CKREF_DOPRG2[]
  8502. 361C9 :: SMAT+
  8503. 361C9 @  (2:[] 1:[] -> 1:[]) No newob for stk1
  8504. 361D8 ::
  8505. 3620A ::
  8506. 36219 :: SystemOb?>MakeUser_DOPRG2[]
  8507. 36246 ::
  8508. 36278 :: NS:MAT-
  8509. 36278 @  Internal - (2:[] 1:[] -> 1:[])
  8510. 3628C ::
  8511. 362AA :: S2MAT-
  8512. 362C3 :: S1MAT-
  8513. 362DC :: NS:MATFLOAT*
  8514. 362DC @  Internal * (2:%/C%/[] 1:%/C%/[] -> 1:[])
  8515. 362E6 ::
  8516. 362FA ::
  8517. 36345 :: SMAT1*
  8518. 36354 ::
  8519. 3635E :: OVERTYPEREAL?_OVERTYPECARRY?_OR
  8520. 3638B :: DUP_MATIM=0_SWAPSystemOb?>MakeUser_REPLACE
  8521. 363CC :: NS:MATFLOAT/
  8522. 363CC @  Internal / (2:[] 1:%/C% -> 1:[])
  8523. 363DB ::
  8524. 363F9 :: SMAT/
  8525. 36417 ::
  8526. 36435 :: NS:MATSQ
  8527. 36435 @  Internal SQ (1:[] -> 1:[])
  8528. 3643F :: NS:MAT*
  8529. 3643F @  Internal * (2:[] 1:[] -> 1:[])
  8530. 36458 :: SMAT2*
  8531. 36476 :: SMAT*
  8532. 36494 :: NS:2DUPMAT*
  8533. 364BC :: 4PICKOVERTWO
  8534. 364BC @  :: 4PICKOVER TWO ;
  8535. 364D0 :: ONE4PICKOVER
  8536. 364D0 @  :: ONE 4PICKOVER ;
  8537. 36516 ::
  8538. 365AC :: NS:MATRSD
  8539. 365AC @  Internal RSD (3:[] 2:[] 1:[] -> 1:[])
  8540. 365CF ::
  8541. 36615 ::
  8542. 3666F ::
  8543. 3669C ::
  8544. 366BF :: NS:ROTCKREF
  8545. 366D3 :: ROTDUP_TYPERARRY?_case_MATIM=0_CKREF
  8546. 366F6 :: NS:MATDOT
  8547. 366F6 @  Internal DOT (2:[] 1:[] -> 1:[])
  8548. 3675A :: NS:B%%>B%
  8549. 3675A @  :: SWITCH(%,C%,%%,C%%) NOP NOP %%>% C%%>C% ;
  8550. 36782 :: NS:MATCROSS
  8551. 36782 @  Internal CROSS (2:[] 1:[] -> 1:[])
  8552. 36796 {} #{THREE}
  8553. 36796 @  { <3h> }
  8554. 367B9 ::
  8555. 367C3 :: NS:FECTH2[]
  8556. 367C3 @  (3:#m 2:#n 1:[] -> 4:%%elementm 3:%%elementn 2:#m 1:#n)
  8557. 367FA :: NS:STKDET2%%
  8558. 367FA @  (4:%% 3:%% 2:%% 1:%% -> 4%%*1%%-3%%*2%% (det) )
  8559. 36868 ::
  8560. 3688B ::
  8561. 368CC {} %{3}
  8562. 368CC @  { %3 }
  8563. 368E5 :: NS:MATRNRM
  8564. 368E5 @  Internal RNRM (1:[] -> 1:%)
  8565. 368F9 :: NS:MATCNRM
  8566. 368F9 @  Internal CNRM (1:[] -> 1:%)
  8567. 3690D :: RNRM
  8568. 3690D @  Internal RNRM...(1:[])
  8569. 369CB :: NS:MATABS
  8570. 369CB @  Internal ABS (1:[] -> 1:%)
  8571. 36A2A :: NS:MATDET
  8572. 36A2A @  Internal DET (1:[] -> 1:%/C%)
  8573. 36A3E :: NS:PULLELSWPDRP
  8574. 36AC5 :: NS:DET2
  8575. 36AC5 @  DET of 2*2 matrix (2:[] 1:#2 -> 1:det)
  8576. 36B0B :: NS:MATINV
  8577. 36B0B @  Internal INV (1:[] -> 1:[]) (Does NEWOB if necessary)
  8578. 36B24 :: SMATINV
  8579. 36B24 @  Internal INV (1:[]) (Does User obj if necessary)
  8580. 36B33 :: SYSTINV
  8581. 36B33 @  Internal INV (2:#side 1:[]) (Doesn't NEWOB)
  8582. 36B60 :: NS:MAT/
  8583. 36B60 @  Internal / (2:[] 1:[] -> 1:[])
  8584. 36B83 :: S/MAT
  8585. 36B88 ::
  8586. 36BC9 ::
  8587. 36BF1 {} LAM{#a#b}
  8588. 36BF1 @  { LAM_#a LAM_#b }
  8589. 36BF6 l' LAM_#a
  8590. 36C01 l' LAM_#b
  8591. 36C2F l' LAM_#b
  8592. 36C3F l' LAM_#a
  8593. 36C59 ::
  8594. 36C7C :: CKREFSMAT/???????
  8595. 36CAE ::
  8596. 36CC2 ::
  8597. 36CE0 ::
  8598. 36CEA {} LAM{#bNULL}
  8599. 36CEA @  { LAM_#b NULLLAM }
  8600. 36CEF l' LAM_#b
  8601. 36D18 l' LAM_#b
  8602. 36D41 :: NS:DETN
  8603. 36D41 @  DET (size > 2) (2:[] 1:#side -> 3:[] 2:%% or C%% 1:#)
  8604. 36D5A {} NS:2NULLLAM{}
  8605. 36D5A @  {NULLLAM NULLLAM}
  8606. 36D82 {} NS:3NULLLAM{}
  8607. 36D82 @  {NULLLAM NULLLAM NULLLAM}
  8608. 36DCD ::
  8609. 36DEB :: NS:-C%%CONJ
  8610. 36DEB @  :: C%%CHS C%%CONJ ;
  8611. 36E4A ::
  8612. 36F6C :: NS:DARRYTYPE%%1
  8613. 36F6C @  ([] -> [] %%1/C%%1)
  8614. 36F8F ::
  8615. 36FDA :: DROPDARRYTYPE%%1
  8616. 36FEE ::
  8617. 37232 ::
  8618. 3726E ::
  8619. 3742D P 
  8620. 3745E P  HP:SWAPROWS
  8621. 3745E @  Swap 2 rows in [] (3:[] 2:# 1:# -> 3:[] 2:# 1:#) (Doesn't do TEMPOB)
  8622. 37500 P  NS:SWAPCOLUMNS
  8623. 37500 @  Swap 2 colums in [] (3:[] 2:# 1:# -> 3:[] 2:# 1:#) (Doesn't do TEMPOB)
  8624. 375B0 P
  8625. 376AE P
  8626. 376EA P
  8627. 3773C P
  8628. 37834 P
  8629. 37840 P
  8630. 37944 P
  8631. 379FF P
  8632. 37A95 ::
  8633. 37AE0 :: NS:DTYPELREAL?
  8634. 37AFE :: NS:MATIM=0
  8635. 37AFE @  Make Imaginary parts 0 (1:[%] or [C%] -> 1:[C%])
  8636. 37B1C :: DROP%%Re>C%
  8637. 37B1C @  :: DROP %%0 %%>C% ;
  8638. 37B44 :: HP:CKREF
  8639. 37B44 @  If obj in TEMPOB, not embedded, not referenced, nothing, else NEWOB
  8640. 37B5D :: SystemOb?>MakeUser
  8641. 37B5D @  If system object, make a new one on RAM (1:Obj ->1:Obj)
  8642. 37B7B :: NS:CKSQUARE[]
  8643. 37B7B @  If not square matrix, then error (1:[] -> 2:[] 1:#side)
  8644. 37B7B @  :: DUP MDIMS ?SEMI?SETInvDimERR #= ?SEMI?SETInvDimERR ;
  8645. 37B9E :: NS:CK2DIMS
  8646. 37B9E @  If DIMS not same, then error (2:[] 1:[] -> 2:[] 1:[])
  8647. 37BCB :: NS:ONE_DO_ARRAY
  8648. 37BCB @  Start Loop through [] ( #elements+1 ONE DO )
  8649. 37BCB @  :: DUP ARSIZE COLA #1+_ONE_DO ;
  8650. 37BE9 :: NS:F%>F%%+
  8651. 37C20 :: NS:C%>C%%+
  8652. 37C48 :: NS:%+C%>C%%
  8653. 37C66 :: NS:C%+%>C%%
  8654. 37C7A :: NS:BF%>F%%
  8655. 37CB1 :: NS:C%>C%%-
  8656. 37CC5 :: NS:%-C%>C%%
  8657. 37CD9 :: NS:C%-%>C%%
  8658. 37CED :: NS:F%%*
  8659. 37CED @  NOPs for normal floats, * for long floats
  8660. 37D24 :: NS:F%%/
  8661. 37D5B :: NS:ABSBF%
  8662. 37D5B @  ABS (1:Any float)
  8663. 37D7E :: NS:NEGBF%
  8664. 37D7E @  NEG (1:Any float)
  8665. 37DA1 :: NS:BF%0=
  8666. 37DA1 @  0= (1:Any float) (%0= C%0= %%0= C%%0=)
  8667. 37DC4 :: NS:F%>F%%
  8668. 37DC4 @  Float to long float (1:% / C% -> 1:%% / C%%)
  8669. 37DE2 :: NS:SETInvDimERR
  8670. 37DE2 @  Error: Invalid Dimension
  8671. 37DE7 #  <501h>
  8672. 37DF6 :: ?SEMI?SETInvDimERR
  8673. 37DF6 @  :: ?SEMI SETInvDimERR ;
  8674. 37E0F :: HP:MATREDIM
  8675. 37E0F @  REDIM array (2:[] 1:{#dims} -> 1:[]) (makes TEMPOB if necessary)
  8676. 37E2D :: SMATREDIM
  8677. 37E2D @  REDIM array (2:[] 1:{#dims} -> 1:[] (makes UserObject if necessary)
  8678. 37E4B :: PREPDIMS
  8679. 37E4B @  Used by RDM to check dimensions
  8680. 37E4B @  (2:[] 1:{#m #n} -> 6:[] 5: #elements 4:#m*#n 3:#m 2:#n 1:TWO)
  8681. 37E4B @  (2:[] 1:{#m} -> 5:[] 4:elements 3:#m 2:#m 1:ONE)
  8682. 37E73 P
  8683. 37E7F P
  8684. 3811F :: HP:MATTRN
  8685. 3811F @  Internal TRN (1:2D[] -> 2D[]) (Makes NEWOB if necessary)
  8686. 3814C :: SMATTRN
  8687. 3814C @  Internal TRN (1:2D[] -> 2D[]) (Makes user object if necessary)
  8688. 38179 P  SYSTMATTRN
  8689. 38179 @  Internal TRN (1:2D[] -> 2D[]) (Does no NEWOB)
  8690. 38338 @  Library 0F0 (XLIB 240) (short)
  8691. 3834F #h Link=F0
  8692. 3834F @  Link table for library 0F0 (XLIB 240)
  8693. 3858E :: HP:StartupProc
  8694. 385A7 ::
  8695. 385A7 @  halt jumps to 385B1
  8696. 385E8 :: NS:InitSysUI
  8697. 38638 ::
  8698. 3866F :: HP:SysMenuCheck
  8699. 3866F @  Update display menu bar
  8700. 386A1 :: HP:SysDisplay
  8701. 386A1 @  Update display stack area if no key is in keybuffer
  8702. 386D8 :: HP:?FlashAlert
  8703. 386D8 :: DOSTATUSWARN
  8704. 386D8 @  Display a warning if Alarm or LowBat)
  8705. 386EC :: FOURTEEN#AND
  8706. 386EC @  :: <Eh> #AND ;
  8707. 38728 :: NS:SysErrorTrap
  8708. 3875F ::
  8709. 387BE ::
  8710. 387E6 ::
  8711. 38804 ::
  8712. 3881D ::
  8713. 3882C ::
  8714. 38854 ::
  8715. 38863 ::
  8716. 3889F ::
  8717. 38908 :: ERRBEEP_TOADISP_DISPSTATUS2_SetDA1Temp
  8718. 38926 :: HP:FlashWarning
  8719. 38926 @  Flash a warning message (1:$)
  8720. 3894E ::
  8721. 38985 :: HP:ParOuterLoop
  8722. 38994 :: NS:POLSet&KeyUI
  8723. 38994 @  :: POLSetUI POLKeyUI ;
  8724. 389BC :: HP:POLSaveUI
  8725. 389BC @  Save current user interface in a temporary environment (no args)
  8726. 389CB :: NS:RclUI
  8727. 389CB @  Recall current user interface
  8728. 38A11 :: NS:RclHPUI
  8729. 38A11 @  Recall system interface (-> 5:LASTMENU 4:# 3:prg 2:MenuRow@ 1:<4h>)
  8730. 38A39 {} LAM{'SavedUI}
  8731. 38A3E l' NS:LAM_'SavedUI
  8732. 38A3E @  Temporary storage for user interface (parametrized outer loop)
  8733. 38A64 :: HP:POLSetUI
  8734. 38A64 @  Set current user interface (same args as to ParOuterLoop)
  8735. 38ACD :: NS:UserRestoreUI
  8736. 38AEB :: HP:POLKeyUI
  8737. 38AEB @  Executes set user interface
  8738. 38B09 :: NS:1POLKeyUI
  8739. 38B09 @  Executes set user interface only once
  8740. 38B45 ::
  8741. 38B77 :: HP:POLResUI&Err
  8742. 38B77 @  Handles UI errors if POLRestoreUI doesn't
  8743. 38B90 :: HP:POLRestoreUI
  8744. 38B90 @  Restore saved UI (POLSaveUI) and ABND (no args)
  8745. 38BD6 :: ClrAppFlags&SetSuspOk
  8746. 38C08 P  HP:AppDisplay!
  8747. 38C08 @  Store display update object for UI
  8748. 38C18 P  NS:AppDisplay@
  8749. 38C18 @  (-> 2:prg 1:True / 1:False)
  8750. 38C28 P  NS:ClrAppDisplay
  8751. 38C38 P  HP:AppKeys!
  8752. 38C38 @  Store Hard key assignments for UI
  8753. 38C48 P  NS:AppKeys@
  8754. 38C58 P  NS:ClrAppKeys
  8755. 38C68 P  HP:AppExitCond!
  8756. 38C68 @  Store Exit condition program for UI (Must return True or False)
  8757. 38C78 P  NS:AppExitCond@
  8758. 38C78 @  Recall user interface exit program
  8759. 38C88 P  NS:ClAppExitCond
  8760. 38C98 P  HP:AppError!
  8761. 38C98 @  Store UI error program
  8762. 38CAB P  NS:AppError@
  8763. 38CBE P  NS:ClrAppError
  8764. 38CD1 P  Test_4_70688
  8765. 38CDF P  Set_4_70688
  8766. 38CED P  Clr_4_70688
  8767. 38CFB P  NS:AppMode?
  8768. 38CFB @  ParOuterLoop on by user? (-> 1:True/False)
  8769. 38D09 P  HP:SetAppMode
  8770. 38D17 P  NS:ClrAppMode
  8771. 38D25 P  NS:NAppKeyOK?
  8772. 38D33 P  HP:SetNAppKeyOK
  8773. 38D41 P  NS:ClrNAppKeyOK
  8774. 38D4F P  NS:DoStdKeys?
  8775. 38D5D P  HP:SetDoStdKeys
  8776. 38D6B P  NS:ClrDoStdKeys
  8777. 38D79 P  NS:AppSuspOK?
  8778. 38D8A P  NS:SetAppSuspOK
  8779. 38D9B P  HP:ClrAppSuspOK
  8780. 38DAC :: HP:DA1OK?
  8781. 38DE8 :: SetDA1BadTRUE
  8782. 38DFC :: NS:DA2aOK?
  8783. 38E38 :: SetDA2aBadTRUE
  8784. 38E4C :: NS:DA2bOK?
  8785. 38E88 :: SetDA2bBadTRUE
  8786. 38E9C :: NS:DA2OK?
  8787. 38EB5 :: HP:DA3OK?
  8788. 38EF1 :: SetDA3BadTRUE
  8789. 38F05 :: NS:DAsOK?
  8790. 38F28 :: HP:DA1OK?NOTIT
  8791. 38F41 :: HP:DA2aOK?NOTIT
  8792. 38F5A :: HP:DA2bOK?NOTIT
  8793. 38F73 :: HP:DA3OK?NOTIT
  8794. 38F8C ::
  8795. 38F8C @  ClrDAsOK SetDA1Bad SetDA2aBad P494CF SetDA3Bad P53A90 P3958B
  8796. 38FB9 :: P53A74_DA2aBad?_NOTAND
  8797. 38FD2 :: HP:SetDA1Valid
  8798. 38FD2 @  SetDA1ValidF ClrDA1Bad ClrDA1IsStat
  8799. 38FEB :: HP:SetDA2aValid
  8800. 38FEB @  SetDA2aValidF ClrDA2aBad
  8801. 38FFF :: NS:SetDA2bValid
  8802. 38FFF @  SetDA2bValidF ClrDA2bBad P3955B
  8803. 39018 :: HP:SetDA3Valid
  8804. 39018 @  SetDA3ValidF ClrDA3Bad
  8805. 3902C :: HP:SetDA1Temp
  8806. 3902C @  P3932B ClrDA1Bad ClrDA1IsStat
  8807. 3902C @  Freeze display area 1 (Status area)
  8808. 39045 :: NS:SetDA2aTemp
  8809. 39045 @  P39355 ClrDA2aBad
  8810. 39059 :: NS:SetDA2bTemp
  8811. 39059 @  P3937F ClrDA2bBad P3955B
  8812. 39072 :: NS:SetDA3Temp
  8813. 39072 @  P393A9 ClrDA3Bad
  8814. 39072 @  freeze menu area
  8815. 39086 :: 
  8816. 39086 @  4488A ITE P53A82 SetDA2aNoCh
  8817. 390A4 :: HP:MENoP&FixDA1
  8818. 390B3 :: SetDA12Bad
  8819. 390CC :: HP:ClrDA1OK
  8820. 390CC @  ClrDA1ValidF P39339 ClrDA1NoCh
  8821. 390CC @  Tell the 48 to redraw the display area 1 when prg ends
  8822. 390E5 :: NS:ClrDA2aOK
  8823. 390E5 @  ClrDA2aValidF P39363 ClrDA2aNoCh
  8824. 390FE :: NS:ClrDA2bOK
  8825. 390FE @  ClrDA2bValidF P3938D ClrDA2bNoCh
  8826. 39117 :: NS:ClrDA2OK
  8827. 3912B :: HP:ClrDA3OK
  8828. 3912B @  ClrDA3ValidF P393B7 ClrDA3NoCh
  8829. 3912B @  Tell the 48 to redraw the display area 3 when prg ends
  8830. 39144 :: HP:ClrDAsOK
  8831. 39144 @  Tell the 48 to redraw the lcd when prg ends
  8832. 3915D :: NS:SetDA2Valid
  8833. 39171 :: NS:SetDAsValid
  8834. 3918A :: HP:SetDA2NoCh
  8835. 3919E :: NS:SetDA12NoCh
  8836. 391B2 :: NS:SetDA23NoCh
  8837. 391C6 :: NS:SetDA13NoCh
  8838. 391DA :: NS:SetDA12a3Noch
  8839. 391EE :: NS:SetDAsNoCh
  8840. 39207 :: NS:SetDA2Temp
  8841. 3921B :: HP:SetDA12Temp
  8842. 3921B @  Freeze display area 1&2 (Status & Stack)
  8843. 3922F :: HP:SetDAsTemp
  8844. 39248 :: NS:DABad?
  8845. 39248 @  True, if any DAxBad? is True
  8846. 39275 P  NS:DA1ValidF?
  8847. 39283 P  NS:SetDA1ValidF
  8848. 39291 P  NS:ClrDA1ValidF
  8849. 3929F P  NS:DA2aValidF?
  8850. 392AD P  NS:SetDA2aValidF
  8851. 392BB P  NS:ClrDA2aValidF
  8852. 392C9 P  NS:DA2bValidF?
  8853. 392D7 P  NS:SetDA2bValidF
  8854. 392E5 P  NS:ClrDA2bValidF
  8855. 392F3 P  NS:DA3ValidF?
  8856. 39301 P  HP:SetDA3ValidF
  8857. 3930F P  NS:ClrDA3ValidF
  8858. 3931D P  Tst_70688:8
  8859. 3932B P  Set_70688:8
  8860. 39339 P  Clr_70688:8
  8861. 39347 P  Tst_70686:1
  8862. 39355 P  Set_70686:1
  8863. 39363 P  Clr_70686:1
  8864. 39371 P  Tst_70686:2
  8865. 3937F P  Set_70686:2
  8866. 3938D P  Clr_70686:2
  8867. 3939B P  Tst_70686:4
  8868. 393A9 P  Set_70686:4
  8869. 393B7 P  Clr_70686:4
  8870. 393C5 P  NS:DA1NoCh?
  8871. 393D3 P  NS:SetDA1NoCh
  8872. 393E1 P  NS:ClrDA1NoCh
  8873. 393EF P  NS:DA2aNoCh?
  8874. 393FD P  NS:SetDA2aNoCh
  8875. 3940B P  NS:ClrDA2aNoCh
  8876. 39419 P  NS:DA2bNoCh?
  8877. 39427 P  NS:SetDA2bNoCh
  8878. 39435 P  NS:ClrDA2bNoCh
  8879. 39443 P  NS:DA3NoCh?
  8880. 39451 P  HP:SetDA3NoCh
  8881. 3945F P  NS:ClrDA3NoCh
  8882. 3946D P  NS:DA1Bad?
  8883. 3947B P  NS:SetDA1Bad
  8884. 39489 P  NS:ClrDA1Bad
  8885. 39497 P  NS:DA2aBad?
  8886. 394A5 P  NS:SetDA2aBad
  8887. 394B3 P  NS:ClrDA2aBad
  8888. 394C1 P  NS:DA2bBad?
  8889. 394CF P  NS:SetDA2bBad
  8890. 394DD P  NS:ClrDA2bBad
  8891. 394EB P  NS:DA3Bad?
  8892. 394F9 P  NS:SetDA3Bad
  8893. 39507 P  HP:ClrDA3Bad
  8894. 39515 P  NS:DA1IsStat?
  8895. 39523 P  NS:SetDA1IsStat
  8896. 39531 P  HP:ClrDA1IsStat
  8897. 39531 @  Suspend ticking clock display
  8898. 3953F P  Tst_70683:4
  8899. 3954D P  Set_70683:4
  8900. 3955B P  Clr_70683:4
  8901. 39569 P  Tst_70683:1
  8902. 39573 @  MC XFER: if 706c1c0 and c2 -> True/False, continue RPL
  8903. 3957A P  Set_70683:1
  8904. 39584 @  MC XFER: 706c1c0.1 or c2, continue RPL
  8905. 3958B P  Clr_70683:1
  8906. 39595 @  MC XFER: 706c1c0.1 and not c2, continue RPL
  8907. 3959C :: NS:?DispStatus
  8908. 3959C @  Update status area if keybuffer is empty
  8909. 395BA :: NS:DispStatus
  8910. 395E2 ::
  8911. 39632 ::
  8912. 39673 :: GETANGLEMODE$
  8913. 39673 @  (-> 4:$ 3:# 2:# 1:#)
  8914. 39682 :: "RAD"FOUR
  8915. 39696 ::
  8916. 396C8 :: GETCMPMODE$
  8917. 396C8 @  (-> 4:$ 3:<16h> 2:<14h> 1:<25h> )
  8918. 396D7 ::
  8919. 3970E :: GETHALTMODE$
  8920. 3970E @  if ''halt' exists, then "HALT", else ""; <27h>, <25h>, <38h>
  8921. 3971D $  "HALT"
  8922. 39748 :: GET1-5FLAG$
  8923. 3974D #  <3039h>
  8924. 3975C CD
  8925. 397BB :: UserMODE$
  8926. 397CA :: USER$
  8927. 397CA @  Recalls "USR1" or "USER"
  8928. 397D9 $  "1USR"
  8929. 397EB $  "USER"
  8930. 3981B :: ALGMODE$
  8931. 3982A $  "ALG"
  8932. 39853 :: PRGMODE$
  8933. 39862 $  "PRG"
  8934. 3988B :: HP:DispDir?Time
  8935. 398F4 ::
  8936. 39958 :: 6&8BLANKIT
  8937. 39958 @  :: <6h> <8h> BLANKIT ;
  8938. 39971 ::
  8939. 39980 #  <7Dh>
  8940. 3998A $  " }"
  8941. 39A06 :: UPDIR?DROP
  8942. 39A06 @  (1:DIR -> 1:UPPERDIR / nothing)
  8943. 39A4C :: NS:SWAPID>$
  8944. 39A4C @  (2:ID/LAM 1:Any -> 2:Any 1:$)
  8945. 39A60 :: SWAPDROP"HOME"
  8946. 39A60 @  (2:Ob2 1:Ob1 -> 2:Ob1 1:"HOME")
  8947. 39A83 :: NS:SHOWTIME
  8948. 39A83 @  Shows time/date regardless of flags.
  8949. 39AD8 :: NS:?SHOWTIME
  8950. 39AD8 @  If DA1IsStat? then SHOWTIME
  8951. 39AF1 :: HP:DispTimeReq?
  8952. 39AF1 @  Clock visible? (-> 1:T/F)
  8953. 39B0A :: DrawDivider
  8954. 39B0A @  Draws status area divider
  8955. 39B2D gr StatusAreaLineGrob
  8956. 39B2D @  status area divider (Graphic 131 x 2)
  8957. 39B85 :: NS:?DispStack
  8958. 39B85 @  Update stack area if keybuffer is empty
  8959. 39BAD :: NS:DispStack
  8960. 39BF3 ::
  8961. 39C1B ::
  8962. 39C61 ::
  8963. 39C9D ::
  8964. 39D06 ::
  8965. 39DBF ::
  8966. 39DE2 ::
  8967. 39E0F :: NS:MultiLiner?
  8968. 39E0F @  Can object be > 1 line long on stack display? (1:Any -> 1:T/F) 
  8969. 39E0F @  (composites,arrays,dirs,complex numbers)
  8970. 39E78 ::
  8971. 39E96 ::
  8972. 39EB9 ::
  8973. 39EE1 :: ROTDROP_INDEX@_#1+_UNROT_ExitAtLOOP
  8974. 39F04 :: "1: "!insert$
  8975. 39F09 $  "1: "
  8976. 39F23 :: NS:!insert2spc$
  8977. 39F28 $  "   "
  8978. 39F42 :: 
  8979. 39F56 :: 52SystFlagClr?
  8980. 39F6F P 
  8981. 39FB0 P  Tst_70683:2
  8982. 39FC1 P  Set_70683:2
  8983. 39FD2 P  Clr_70683:2
  8984. 39FE3 :: ::FIVE::
  8985. 39FE3 @  :: <5h> ;
  8986. 39FF2 $  "..."
  8987. 39FFE :: ::TWENTYTWO::
  8988. 39FFE @  :: <16h> ;
  8989. 3A00D :: HP:DispEditLine
  8990. 3A030 ::
  8991. 3A07B :: DROPOVERLEN$#1+
  8992. 3A0E4 ::
  8993. 3A125 :: 4DROP"..."
  8994. 3A139 ::
  8995. 3A19D :: CHR_...>H$
  8996. 3A1CA :: HP:?DispMenu
  8997. 3A1CA @  If no keys pressed DispMenu & freeze current menu
  8998. 3A1CA @  :: KEYINBUFFER? NOTcase DispMenu SetDA3Bad ;
  8999. 3A1E8 :: HP:DispMenu
  9000. 3A1E8 @  Display & freeze current menu
  9001. 3A1E8 @  :: DispMenu.1 SetDA3Valid ;
  9002. 3A1FC :: HP:DispMenu.1
  9003. 3A1FC @  Display current menu
  9004. 3A1FC @  :: TURNMENUON P12847 <6Eh> <58h> <42h> <2Ch> <16h> <0h> <7h> ONE_DO INDEX@ GETDF DoLabel LOOP ;
  9005. 3A20B #  <6Eh>
  9006. 3A215 #  <58h>
  9007. 3A21F #  <42h>
  9008. 3A229 #  <2Ch>
  9009. 3A260 :: NS:>Menu
  9010. 3A260 @  Dispatching Grob>Menu, Str>Menu, Seco>Menu or Id>Menu
  9011. 3A297 :: HP:Grob>Menu
  9012. 3A2B5 :: HP:Str>Menu
  9013. 3A2C9 :: HP:Seco>Menu
  9014. 3A2DD :: HP:Id>Menu
  9015. 3A2FB :: NS:Dir?Dir/StdLb
  9016. 3A328 :: HP:MakeStdLabel
  9017. 3A328 @  build normal menu key
  9018. 3A337 gr NS:StdLabelGrob
  9019. 3A337 @  normal menu key (blank/inverse) (Graphic 21 x 8)
  9020. 3A38A :: HP:MakeBoxLabel
  9021. 3A38A @  build checked menu key ($ -> grob (box with bullet))
  9022. 3A399 gr NS:BoxLabelGrob
  9023. 3A399 @  checked menu key (blank/inverse) (Graphic 21 x 8)
  9024. 3A3EC :: HP:MakeDirLabel
  9025. 3A3FB gr NS:DirLabelGrob
  9026. 3A3FB @  direcotory menu key (blank/inverse) (Graphic 21 x 8)
  9027. 3A44E :: HP:MakeInvLabel
  9028. 3A45D gr NS:InvLabelGrob
  9029. 3A45D @  solver menu key (blank) (Graphic 21 x 8)
  9030. 3A4AB :: HP:MakeLabel
  9031. 3A4CE :: HP:Disp5x7
  9032. 3A4CE @  Disp in 5x7 font at #startrow for #max rows (3:$ 2:#startrow #max)
  9033. 3A4F6 :: DROPMINUSONEExitAtLOOP
  9034. 3A546 :: HP:BlankDA1
  9035. 3A546 @  BLANKIT rows 0-16
  9036. 3A55F :: HP:BlankDA2
  9037. 3A55F @  BLANKIT rows 15-56
  9038. 3A578 :: HP:BlankDA12
  9039. 3A578 @  BLANKIT rows 0-56
  9040. 3A591 :: HP:BlankDA2a
  9041. 3A5CD :: DoONkey
  9042. 3A5F0 :: DoBACKSPCkey
  9043. 3A60E ::
  9044. 3A62C #  <1Dh>
  9045. 3A645 :: DoDOWNkey
  9046. 3A672 #  <11h>
  9047. 3A67C ::
  9048. 3A69A :: Do''key
  9049. 3A6B3 :: Do_key
  9050. 3A6CC :: Do()key
  9051. 3A6E5 :: DoIOmkey
  9052. 3A6FE :: DoLASTMENUkey
  9053. 3A71C :: HP:DoNextRow
  9054. 3A71C @  :: TakeOver'R SIX SetSomeRow
  9055. 3A735 :: HP:DoPrevRow
  9056. 3A735 @  :: TakeOver'R <FFFFAh> SetSomeRow ;
  9057. 3A73F #  <FFFFAh>
  9058. 3A753 :: Do.key
  9059. 3A77B :: Do,key
  9060. 3A7A3 :: DoTIMEkey
  9061. 3A7A3 @  Starts time menu application
  9062. 3A7C6 :: DoEDITkey
  9063. 3A7D5 :: DoEDITmenu
  9064. 3A7D5 @  Show edit menu
  9065. 3A7F3 :: DoENTERkey
  9066. 3A80C :: DoRIGHTRSkey
  9067. 3A834 :: DoLEFTkey
  9068. 3A857 ::
  9069. 3A870 #  <10h>
  9070. 3A87A :: NS:CRS>LEFT
  9071. 3A87A @  Move cursor in cmd line
  9072. 3A893 :: DoLSkey
  9073. 3A8AC :: DoNSkey
  9074. 3A8C5 :: DoRSkey
  9075. 3A8DE :: DoRIGHTkey
  9076. 3A901 ::
  9077. 3A91A #  <12h>
  9078. 3A924 :: NS:CRS>RIGHT
  9079. 3A924 @  Move cursor in cmd line
  9080. 3A93D :: DoUPkey
  9081. 3A93D @  Does UPSTK if cmd line height is 0/1, else moves cursor up
  9082. 3A96A #  <Bh>
  9083. 3A974 :: NS:CRS>UP
  9084. 3A974 @  Move cursor in cmdline
  9085. 3A992 :: DoSTOkey
  9086. 3A9CE :: HP:TurnOffKey
  9087. 3A9CE @  :: :TakeOver: TurnOff SetDAsNoCh ;
  9088. 3A9E7 :: HP:SetSomeRow
  9089. 3A9E7 @  :: MenuRow@ #+ STOMenuRow SetThisRow P418E4 ;
  9090. 3AA0A :: HP:1A/LockA
  9091. 3AA37 :: DoALSkey
  9092. 3AA50 :: DoAkey
  9093. 3AA69 :: DoARSkey
  9094. 3AA82 :: DoNEGkey
  9095. 3AA9B :: 'xNEGDoKeyob
  9096. 3AAEB :: DoCLVARkey
  9097. 3AB09 :: DoDELkey
  9098. 3AB27 ::
  9099. 3AB40 #  <1Ch>
  9100. 3AB59 :: DoALGEBRAkey
  9101. 3AB72 :: DoCSTmkey
  9102. 3AB8B :: Do{}key
  9103. 3ABA4 :: Do[]key
  9104. 3ABBD :: Do<<>>keyLS
  9105. 3ABD6 :: Do<<>>key
  9106. 3ABEF :: Do::key
  9107. 3AC08 :: Do#key
  9108. 3AC21 :: Do""key
  9109. 3AC3A :: DoEEXkey
  9110. 3AC7B ::
  9111. 3ACBC :: DoCMDkey
  9112. 3ACF8 :: DoSTACKkey
  9113. 3AD0C ::
  9114. 3AD57 :: DoMTHmkey
  9115. 3AD70 :: DoMEMORYmkey
  9116. 3AD89 :: DoMEMORYARITmkey
  9117. 3ADA2 :: DoMODESmkey
  9118. 3ADBB :: DoMODESCUSTOMmkey
  9119. 3ADD4 :: DoNEWLINEkey
  9120. 3ADED :: DoPLOTkey
  9121. 3AE1A :: DoPRGmkey
  9122. 3AE33 :: DoPRINTmkey
  9123. 3AE4C :: DoREVIEWkey
  9124. 3AE6F :: DoLIBRARYmkey
  9125. 3AE88 :: DoSOLVEkey
  9126. 3AEB5 :: DoSTATkey
  9127. 3AEE2 :: DoSTATRSkey
  9128. 3AF05 :: DoUNITSmkey
  9129. 3AF1E :: DoUNITSCMDmkey
  9130. 3AF37 :: DoVARmkey
  9131. 3AF50 :: DoENTERLSkey
  9132. 3AF50 @  If PrgMode? then DUP, else Equation Writer
  9133. 3AF69 :: DoDOWNRSkey
  9134. 3AF73 :: DoSVISITkey
  9135. 3AF73 @  As key assignment
  9136. 3AF7D :: NS:SVISIT
  9137. 3AFE6 :: DoLEFTRSkey
  9138. 3B00E :: DoUPRSkey
  9139. 3B036 :: Do2ALPHAkey
  9140. 3B068 :: DoENTERRSkey
  9141. 3B068 @  If PrgMode? then DUP else Matrix writer
  9142. 3B081 :: DoENTRYkey
  9143. 3B095 :: SetPrgEntryDOCMDLINE
  9144. 3B095 @  Enter Program-Entry Mode and start command line
  9145. 3B0DB :: DoUSRkey
  9146. 3B12B :: NS:VISIT
  9147. 3B15D :: Do2Dkey
  9148. 3B18F :: Do3Dkey
  9149. 3B1B7 :: DoPOLARkey
  9150. 3B1CB :: DoRADkey
  9151. 3B1DF :: DoPURGEkey
  9152. 3B211 :: HP:DoFirstRow
  9153. 3B211 @  :: TakeOver'R ONE STOMenuROW SetThisRow ;
  9154. 3B234 {} NS:ALLMENUS{}
  9155. 3B234 @  Entire menu list
  9156. 3B234 @  All menu entries (CSTmenu etc are used like :: ' CSTmenu InitMenu ;)
  9157. 3B234 @  All key entries are like { "NAME" Action } or { "Name" menu}
  9158. 3B234 @  All menulists are the menus initiated if there are preparing action
  9159. 3B234 @  Type of menu (:: or {}) indicates if there are preparing actions
  9160. 3B234 @  DoXXXkey is executed when you PRESS the menukey
  9161. 3B234 @  XXXlabelprg return new label if key is pressed ( -> Grob)
  9162. 3B234 @  XXXkeyops is a list of NS,LS(,RS) routines
  9163. 3B239 :: CSTmenu
  9164. 3B243 ::
  9165. 3B284 :: MTHmenu
  9166. 3B284 @  Does TopMenuLabelDef NoExitAction SetTopMenuKeys first
  9167. 3B293 {} MTHmenulist
  9168. 3B293 @  {MTHPARTSkey MTHPROBkey ... MTHBASEkey}
  9169. 3B298 {} MTHPARTSkey
  9170. 3B298 @  { "PARTS" MTHPARTSmenu}
  9171. 3B29D $  "PARTS"
  9172. 3B2BB {} MTHPROBkey
  9173. 3B2BB @  { "PROB" MTHPROBmenu }
  9174. 3B2C0 $  "PROB"
  9175. 3B2DC {} MTHHYPkey
  9176. 3B2DC @  { "HYP" MTHHYPmenu }
  9177. 3B2E1 $  "HYP"
  9178. 3B2FB {} MTHMATRXkey
  9179. 3B2FB @  { "MATRX" MTHMATRXmenu }
  9180. 3B300 $  "MATRX"
  9181. 3B31E {} MTHVECTRkey
  9182. 3B31E @  { "VECTR" MTHVECTRmenu }
  9183. 3B323 $  "VECTR"
  9184. 3B341 {} MTHBASEkey
  9185. 3B341 @  { "BASE" MTHBASEmenu }
  9186. 3B346 $  "BASE"
  9187. 3B36C {} MTHPARTSmenu
  9188. 3B36C @  { ABS SIN CONJ ARG RE IM MIN MAX MOD % %CH %T MANT XPON
  9189. 3B36C @    IP FP FLOOR CEIL RND TRNC MAXR MINR }
  9190. 3B3E4 {} MTHPROBmenu
  9191. 3B3E4 @  { COMB PERM ! RAND RDZ NullMenuKey UTPC UTPF UTPN UTPT }
  9192. 3B420 {} MTHHYPmenu
  9193. 3B420 @  { SINH ASINH COSH ACOSH TANH ATANH EXPM LNP1 }
  9194. 3B452 {} MTHMATRXmenu
  9195. 3B452 @  { CON IDN TRN RDM DET RSD ABS RNRM CNRM }
  9196. 3B489 {} MTHVECTRmenu
  9197. 3B489 @  { XYZkey R\Zkey R\\key CROSS DOT ABS V-> ->V2 ->V3 D->R R->D }
  9198. 3B4CA {} MTHBASEmenu
  9199. 3B4CA @  { HEXkey DECkey OCTkey BINkey STWS RCWS RL RR RLB RRB
  9200. 3B4CA @    R->B B->R SL SR SLB SRB ASR NullMenuKey AND OR XOR NOT }
  9201. 3B542 :: PRGmenu
  9202. 3B542 @  Does TopMenuLabelDef&NoExitAction SetTopMenuKeys first
  9203. 3B551 {} PRGmenulist
  9204. 3B551 @  { PRGSTKkey PRGOBJkey PRGDSPLkey PRGCTRLkey PRGBRCHkey PRGTESTkey }
  9205. 3B556 {} PRGSTKkey
  9206. 3B556 @  { "STK" PRGSTKmenu }
  9207. 3B55B $  "STK"
  9208. 3B575 {} PRGOBJkey
  9209. 3B575 @  { "OBJ" PRGOBJmenu }
  9210. 3B57A $  "OBJ"
  9211. 3B594 {} PRGDSPLkey
  9212. 3B594 @  { "DSPL" PRGDSPLmenu }
  9213. 3B599 $  "DSPL"
  9214. 3B5B5 {} PRGCTRLkey
  9215. 3B5B5 @  { "CTRL PRGDSPLmenu }
  9216. 3B5BA $  "CTRL"
  9217. 3B5D6 {} PRGBRCHkey
  9218. 3B5D6 @  { "BRCH" PRGBRCHmenu }
  9219. 3B5DB $  "BRCH"
  9220. 3B5F7 {} BRGTESTkey
  9221. 3B5F7 @  { "TEST" PRGTESTmenu }
  9222. 3B5FC $  "TEST"
  9223. 3B622 {} PRGSTKmenu
  9224. 3B622 @  { OVER ROT ROLL ROLLD PICK DEPTH DUP DUP2 DUPN DROP2 DRPNkey }
  9225. 3B659 {} DRPNkey
  9226. 3B659 @  { "DRPN" DROPN }
  9227. 3B65E $  "DRPN"
  9228. 3B67F {} PRGOBJmenu
  9229. 3B67F @  { OBJ-> EQ-> ->ARRY ->LIST ->STR ->TAG R->C C->R DTAG ->UNIT
  9230. 3B67F @    TYPE VTYPE SIZE POS REPL SUB NUM CHR PUT GET PUTI GETI }
  9231. 3B6F7 {} PRGDSPLmenu
  9232. 3B6F7 @  { PICT PVIEW LINE TLINE BOX ARC PIXON PIXOFF PIX? PX->C C->PX
  9233. 3B6F7 @    SIZE ->GROB BLANK GOR GXOR REPL SUB ->LCDkey LCD-> CLLCDkey
  9234. 3B6F7 @    DISPkey FREEZE TEXT }
  9235. 3B756 {} ->LCDkey
  9236. 3B760 :: Do->LCDkey
  9237. 3B783 {} CLLCDkey
  9238. 3B78D :: DoCLLCDkey
  9239. 3B7AB {} DISPkey
  9240. 3B7B5 :: DoDISPkey
  9241. 3B7E2 {} PRGCTRLmenu
  9242. 3B7E2 @  { DBUGkey SSTkey SSTdownkey NEXTkey HALT KILL INPUT
  9243. 3B7E2 @    PROMPT DISPkey MENU WAIT KEY DOERR ERRN ERRM ERR0 BEEP OFF }
  9244. 3B7E7 {} DBUGkey
  9245. 3B7EC $  "DBUG"
  9246. 3B808 {} SSTkey
  9247. 3B80D $  "SST"
  9248. 3B827 {} SSTdownkey
  9249. 3B82C $  "SSTdown"
  9250. 3B848 {} NEXTkey
  9251. 3B84D $  "NEXT"
  9252. 3B8B4 {} PRGBRCHmenu
  9253. 3B8B4 @  { IFkey CASEkey STARTkey FORkey DOkey WHILEkey THEN END NEXT STEP
  9254. 3B8B4 @    UNTIL REPEAT ELSE IFERRkey IFT IFTE }
  9255. 3B90E {} PRGTESTmenu
  9256. 3B90E @  { AND OR XOR NOT SAME TYPE == <>  <  >  <=  >= 
  9257. 3B90E @    SF CF FS? FC? FS?C FC?C }
  9258. 3B972 {} PRINTmenu
  9259. 3B972 @  { PR1 PRST PRSTC PRLCD PRVAR CR DELAY OLDPRT }
  9260. 3B9A4 {} IOmenu
  9261. 3B9A4 @  { SEND RECV SERVE KGET FINISH SETUPkey RECN PKT KERRM NullMenuKey
  9262. 3B9A4 @    OPENIO CLOSEIO XMIT RECV STIME SBRK BUFLEN }
  9263. 3BA03 :: IOSETUPmenu
  9264. 3BA03 @  Sets DISPIOSETUP as ReviewKey, SetDA1BADSSAVEMENUOFFSET as ExitAction
  9265. 3BA08 {} IOSETUPmenulist
  9266. 3BA08 @  { IR/Wkey ASCIIkey BAUDkey PARITYkey CKSMkey TRANSIOkey }
  9267. 3BA0D {} IR/Wkey
  9268. 3BA12 $  "IR/W"
  9269. 3BA2E {} ASCIIkey
  9270. 3BA33 $  "ASCII"
  9271. 3BA51 {} BAUDkey
  9272. 3BA5B :: DoBAUDkey
  9273. 3BA5B @  :: Do1st/2nd+ xBAUD MAKEVALIDBAUD MSGOK?DISPIOSETUP ;
  9274. 3BA7E {} PARITYkey
  9275. 3BA88 :: DoPARITYkey
  9276. 3BAAB {} CKSMkey
  9277. 3BAB5 :: DoCKSMkey
  9278. 3BAD8 {} TRANSIOkey
  9279. 3BAE2 :: DoTRANSIOkey
  9280. 3BB19 :: SetExitAction:SetDA1BadSAVEMENUOFFSET
  9281. 3BB23 :: SetDA1BadSAVEMENUOFFSET
  9282. 3BB46 {} MODESlist
  9283. 3BB46 @  { STDkey FIXkey SCIkey ENGkey SYMkey BEEPkey STKkey ARGkey CMDkey
  9284. 3BB46 @    CNCTkey MLkey CLKkey DEGkey RADkey GRADkey XYZkey R\Zkey R\\key
  9285. 3BB46 @    HEXkey DECkeyOCTkey BINkey FM,key }
  9286. 3BB5F {} SYMkey
  9287. 3BB64 :: SYMlabelprg
  9288. 3BB64 @  Gives new label grob according to flag #3
  9289. 3BB6E $  "SYM"
  9290. 3BB88 :: DoSYMkey
  9291. 3BB88 @  :: 3ED84 <3h> SetDA12NoCh ;
  9292. 3BBA6 {} BEEPkey
  9293. 3BBAB :: BEEPlabelprg
  9294. 3BBB5 $  "BEEP"
  9295. 3BBD1 :: DoBEEPkey
  9296. 3BBFE {} CNCTkey
  9297. 3BC03 :: CNCTlabelprg
  9298. 3BC0D $  "CNCT"
  9299. 3BC29 :: DoCNCTkey
  9300. 3BC8D {} MODESCUSTOMmenu
  9301. 3BC8D @  { ASN STOKEYS RCLKEYS DELKEYS MENU ID_CST TMENU RCLMENU STOF RCLF
  9302. 3BC8D @    SF CF FS? FC? FS?C FC?C }
  9303. 3BCE7 {} MEMORYmenu
  9304. 3BCE7 @  { MEM BYTES VARS ORDER PATH CRDIR TVARS PVARS NEWOB LIBS ATTACH
  9305. 3BCE7 @    DETACH MERGE FREE ARCHIVE RESTORE PGDIR }
  9306. 3BD46 {} MEMORYARITmenu
  9307. 3BD46 @  { STO+ STO- STO* STO/ INCR DECR SINV SNEG SCON }
  9308. 3BD82 :: NS:PORT0menu
  9309. 3BD82 @  :: SetPORTmenuOn ' SHOWPORT0menu ; 
  9310. 3BD91 :: SHOWPORT0menu
  9311. 3BDAA :: NS:PORT1menu
  9312. 3BDB9 :: SHOWPORT1menu
  9313. 3BDD2 :: NS:PORT2menu
  9314. 3BDE1 :: SHOWPORT2menu
  9315. 3BDFA {} HP:EditMenu
  9316. 3BDFA @  { <SkipKey >SkipKey <DelKey >DelKey TogInsertKey IStackKey }
  9317. 3BE22 :: SOLVEmenu
  9318. 3BE22 @  Sets SOLVEReviewKey and does SetExitAction:SetDA1BadSAVEMENUOFFSET
  9319. 3BE27 {} SOLVEmenulist
  9320. 3BE27 @  { SOLVRkey ROOT NEWkey EDEQkey STEQkey CATkey }
  9321. 3BE2C {} SOLVRkey
  9322. 3BE31 :: SOLVRlabelprg
  9323. 3BE3B $  "SOLVR"
  9324. 3BE54 :: DoSOLVRkey
  9325. 3BE54 :: HP:DoSolvrMenu
  9326. 3BEB3 @  SOLVE SOLVR menu list
  9327. 3BEB8 :: PLOTmenu
  9328. 3BEB8 @  Sets PLOTReviewKey and does SetExitAction:SetDA1BadSAVEMENUOFFSET
  9329. 3BEBD {} PLOTmenulist
  9330. 3BEBD @  { PLOTRkey PTYPEkey NEWkey EDEQkey STEQkey CATkey }
  9331. 3BEC2 {} PLOTRkey
  9332. 3BEC7 :: PLOTRlabelprg
  9333. 3BED1 $  "PLOTR"
  9334. 3BEEA :: DoPLOTRkey
  9335. 3BF21 {} PTYPEkey
  9336. 3BF26 :: PTYPElabelkey
  9337. 3BF30 $  "PTYPE"
  9338. 3BF49 :: DoPTYPEkey
  9339. 3BF71 {} NEWkey
  9340. 3BF76 $  "NEW"
  9341. 3BF86 :: DoNEWkey
  9342. 3BF9F {} EDEQkey
  9343. 3BFA4 $  "EDEQ"
  9344. 3BFC0 {} STEQkey
  9345. 3BFCA {} STEQkey{}
  9346. 3BFCF :: DoSTEQkey
  9347. 3BFFC {} CATkey
  9348. 3C001 $  "CAT"
  9349. 3C039 :: PTYPEmenu
  9350. 3C039 @  Sets PTYPEkeyNSprg, SetDA1Bad as ExitAction
  9351. 3C03E {} PTYPEmenulist
  9352. 3C03E @  { FUNCTION CONIC POLAR PARAMETRIC TRUTH BAR HISTkey SCATTER }
  9353. 3C061 {} HISTkey
  9354. 3C066 $  "HIST"
  9355. 3C0AF :: PLOTRmenu
  9356. 3C0AF @  
  9357. 3C0B4 {} PLOTRlist
  9358. 3C0B4 @  { ERASEkey DRAWkey AUTOkey XRNGkey YRNGkey INDEPkey DEPNDkey
  9359. 3C0B4 @    PTYPEkey RESkey CENTRkey SCALEkey RESETkey AXESkey DRAX LABEL
  9360. 3C0B4 @    *Hkey *Wkey PDIMkey }
  9361. 3C0B9 {} ERASEkey
  9362. 3C0C3 :: DoERASEkey
  9363. 3C0F0 {} DRAWkey
  9364. 3C0FA {} DRAWkeyops
  9365. 3C0FF :: DoDRAWkey
  9366. 3C11D :: DoDRAWkeyLS
  9367. 3C145 {} AUTOkey
  9368. 3C14F :: DoAUTOkey
  9369. 3C18B {} XRNGkey
  9370. 3C195 {} XRNGkeyops
  9371. 3C19A :: DoXRNGkey
  9372. 3C1B8 :: DoXRNGkeyRS
  9373. 3C1B8 :: GETXMIN&XMAX
  9374. 3C1B8 @  (-> 2:%xmin 1:%xmax)
  9375. 3C1D6 {} YRNGkey
  9376. 3C1E0 {} YRNGkeyops
  9377. 3C1E5 :: DoYRNGkey
  9378. 3C203 :: DoYRNGkeyRS
  9379. 3C203 :: GETYMIN&MAX
  9380. 3C203 @  (-> 2:%ymin 1:%max)
  9381. 3C221 {} INDEPkey
  9382. 3C22B {} INDEPkeyops
  9383. 3C230 :: DoINDEPkey
  9384. 3C23F :: SHOWPlotrInfoSetDA3NoCh
  9385. 3C26C {} DEPNDkey
  9386. 3C276 {} DEPNDkeyops
  9387. 3C27B :: DoDEPNDkey
  9388. 3C2AD {} RESkey
  9389. 3C2B7 {} RESkeyops
  9390. 3C2BC :: DoRESkey
  9391. 3C2E9 {} CENTRkey
  9392. 3C2F3 {} CENTRkeyops
  9393. 3C2F8 :: DoCENTRkey
  9394. 3C325 {} SCALEkey
  9395. 3C32F {} SCALEkeyops
  9396. 3C334 :: DoSCALEkey
  9397. 3C361 {} RESETkey
  9398. 3C366 $  "RESET"
  9399. 3C384 {} AXESkey
  9400. 3C38E {} AXESkeyops
  9401. 3C393 :: DoAXESkey
  9402. 3C3CA {} *Hkey
  9403. 3C3D4 :: Do*Hkey
  9404. 3C3F2 {} *Wkey
  9405. 3C3FC :: Do*Wkey
  9406. 3C41A {} PDIMkey
  9407. 3C424 {} PDIMkeyops
  9408. 3C456 :: SetExitAction:SAVEMENUOFFSETSetDA12Bad
  9409. 3C460 :: SAVEMENUOFFSETSetDA12Bad
  9410. 3C483 {} ALGEBRAmenu
  9411. 3C483 @  { COLCT EXPAN ISOL QUAD SHOW TAYLR
  9412. 3C483 @    UPMATCH DOWNMATCH rpnWHERE stkAPPLY QUOTE ->QPI }
  9413. 3C4C9 :: TIMEmenu
  9414. 3C4CE {} TIMEmenulist
  9415. 3C4CE @  { SETkey ADJSTkey ALRMkey ACKkey ACKALLkey TIMECATkey DATE+ DDAYS
  9416. 3C4CE @    DATE TIME TSTR TICKS ->HMS HMS-> HMS+ HMS- }
  9417. 3C4D3 {} TIMESETkey
  9418. 3C4D8 :: TIMESETlabelprg
  9419. 3C4E2 $  "SET"
  9420. 3C4F7 :: DOTIMESETkey
  9421. 3C51A {} ADJSTkey
  9422. 3C51F :: ADJSTlabelprg
  9423. 3C529 $  "ADJST"
  9424. 3C542 :: DoADJSTkey
  9425. 3C565 {} ALRMkey
  9426. 3C56A :: ALRMlabelprg
  9427. 3C574 $  "ALRM"
  9428. 3C58B :: DoALRMkey
  9429. 3C5B8 {} ACKkey
  9430. 3C5C2 :: DoACKkey
  9431. 3C5E5 {} ACKALLkey
  9432. 3C5EF :: DoACKALLkey
  9433. 3C612 {} TIMECATkey
  9434. 3C671 {} ADJSTmenu
  9435. 3C671 @  { HR+key HR-key MIN+key MIN-key SEC+key SEC-key CLKADJ }
  9436. 3C676 {} HR+key
  9437. 3C67B $  "HR+"
  9438. 3C68B :: DoHR+key
  9439. 3C6A4 {} HR-key
  9440. 3C6A9 $  "HR-"
  9441. 3C6B9 :: DoHR-key
  9442. 3C6D2 {} MIN+key
  9443. 3C6D7 $  "MIN+"
  9444. 3C6E9 :: DoMIN+key
  9445. 3C702 {} MIN-key
  9446. 3C707 $  "MIN-"
  9447. 3C719 :: DoMIN-key
  9448. 3C732 {} SEC+key
  9449. 3C737 $  "SEC+"
  9450. 3C749 :: DoSEC+key
  9451. 3C762 {} SEC-key
  9452. 3C767 $  "SEC-"
  9453. 3C779 :: DoSEC-key
  9454. 3C79C :: ALRMmenu
  9455. 3C7A1 {} ALRMmenulist
  9456. 3C7A1 @  { >DATEkey >TIMEkey A/PMkey EXECkey RPTkey ALRMSETkey
  9457. 3C7A1 @    STOALARM RCLALARM DELALARM FINDALARM }
  9458. 3C7A6 {} >DATEkey
  9459. 3C7AB $  ">DATE"
  9460. 3C7C9 {} >TIMEkey
  9461. 3C7CE $  ">TIME"
  9462. 3C7EC {} A/PMkey
  9463. 3C7F1 $  "A/PM"
  9464. 3C80D {} EXECkey
  9465. 3C812 $  "EXEC"
  9466. 3C824 {} EXECkeyops
  9467. 3C842 {} RPTkey
  9468. 3C847 :: RPTlabelprg
  9469. 3C851 $  "RPT"
  9470. 3C866 :: DoRPTkey
  9471. 3C889 {} ALARMSETkey
  9472. 3C88E $  "SET"
  9473. 3C8D5 {} RPTmenu
  9474. 3C8D5 @  { WEEKkey DAYkey HOURkey MINkey SECkey NONEkey }
  9475. 3C8DA {} WEEKkey
  9476. 3C8DF $  "WEEK"
  9477. 3C8FB {} DAYkey
  9478. 3C900 $  "DAY"
  9479. 3C91A {} HOURkey
  9480. 3C91F $  "HOUR"
  9481. 3C93B {} MINkey
  9482. 3C940 $  "MIN"
  9483. 3C95A {} SECkey
  9484. 3C95F $  "SEC"
  9485. 3C979 {} NONEkey
  9486. 3C97E $  "NONE"
  9487. 3C990 :: DoNONEkey
  9488. 3C9B8 {} TIMESETmenu
  9489. 3C9B8 @  { ->DATEkey ->TIMEkey TIMESETA/PMkey 12/24key M/Dkey }
  9490. 3C9BD {} ->DATEkey
  9491. 3C9C2 $  "->DATE"
  9492. 3C9E0 {} ->TIMEkey
  9493. 3C9E5 $  "->TIME"
  9494. 3CA03 {} TIMESETA/PMkey
  9495. 3CA08 $  "A/PM"
  9496. 3CA1A :: DoTIMESETA/PMkey
  9497. 3CA38 {} 12/24key
  9498. 3CA3D $  "12/24"
  9499. 3CA51 :: Do12/24key
  9500. 3CA6F {} M/Dkey
  9501. 3CA74 $  "M/D"
  9502. 3CA84 :: DoM/Dkey
  9503. 3CAA7 :: STATmenu
  9504. 3CAAC {} STATmenulist
  9505. 3CAAC @  { sigma+key CLsigmakey STATNEWkey EDITsigmakey STATCATkey TOT
  9506. 3CAAC @    MEAN SDEV MAXsigma MINsigma BINS XCOLkey YCOLkey BARPLOTkey
  9507. 3CAAC @    HISTPLOTkey SCATRPLOTkey sigmaLINE LR PREDX PREDY CORR COV
  9508. 3CAAC @    MODLkey sigmaX sigmaY sigmaXX sigmaYY sigmaXY Nsigma }
  9509. 3CAB1 {} sigma+key
  9510. 3CABB {} sigma+keyops
  9511. 3CAC0 :: Dosigma+key
  9512. 3CAE8 :: Dosigma-key
  9513. 3CB1A {} CLsigmakey
  9514. 3CB24 :: DoCLsigmakey
  9515. 3CB47 {} STATNEWkey
  9516. 3CB4C $  "NEW"
  9517. 3CB5C :: DoSTATNEWkey
  9518. 3CB75 {} EDITsigmakey
  9519. 3CB7A $  "EDITsigma"
  9520. 3CB98 {} STOsigmakey
  9521. 3CBA2 {} STOsigmakeyops
  9522. 3CBA7 :: DoSTOsigmakey
  9523. 3CBD4 {} STATCATkey
  9524. 3CC06 {} XCOLkey
  9525. 3CC10 {} XCOLkeyops
  9526. 3CC15 :: DoXCOLkey
  9527. 3CC47 {} YCOLkey
  9528. 3CC51 {} YCOLkeyops
  9529. 3CC56 :: DoYCOLkey
  9530. 3CC88 {} BARPLOTkey
  9531. 3CC92 :: DoBARPLOTkey
  9532. 3CCBF {} HISTPLOTkey
  9533. 3CCC9 :: DoHISTPLOTkey
  9534. 3CCEC {} SCATRPLOTkey
  9535. 3CCF6 :: DoSCATRPLOTkey
  9536. 3CD64 :: SHOWNoSigmaDatSetDA2NoCh
  9537. 3CD96 :: MODLmenu
  9538. 3CD9B {} MODLmenulist
  9539. 3CD9B @  { LINkey LOGkey EXPkey PWRkey BESTkey }
  9540. 3CDA0 {} LINkey
  9541. 3CDA5 $  "LIN"
  9542. 3CDBF {} LOGkey
  9543. 3CDC4 $  "LOG"
  9544. 3CDDE {} EXPkey
  9545. 3CDE3 $  "EXP"
  9546. 3CDFD {} PWRkey
  9547. 3CE02 $  "PWR"
  9548. 3CE1C {} BESTkey
  9549. 3CE21 $  "BEST"
  9550. 3CE65 :: UNITSmenu
  9551. 3CE74 {} UNITSmenulist
  9552. 3CE74 @  { LENGkey AREAkey VOLkey UNITSTIMEkey SPEEDkey MASSkey
  9553. 3CE74 @    FORCEkey ENRGkey POWRkey PRESSkey TEMPkey ELECkey ANGLkey
  9554. 3CE74 @    LIGHTkey UNITSRADkey VISCkey }
  9555. 3CE79 {} LENGkey
  9556. 3CE7E $  "LENG"
  9557. 3CE9A {} AREAkey
  9558. 3CE9F $  "AREA"
  9559. 3CEBB {} VOLkey
  9560. 3CEC0 $  "VOL"
  9561. 3CEDA {} UNITSTIMEkey
  9562. 3CEDF $  "TIME"
  9563. 3CEFB {} SPEEDkey
  9564. 3CF00 $  "SPEED"
  9565. 3CF1E {} MASSkey
  9566. 3CF23 $  "MASS"
  9567. 3CF3F {} FORCEkey
  9568. 3CF44 $  "FORCE"
  9569. 3CF62 {} ENRGkey
  9570. 3CF67 $  "ENRG"
  9571. 3CF83 {} POWRkey
  9572. 3CF88 $  "POWR"
  9573. 3CFA4 {} PRESSkey
  9574. 3CFA9 $  "PRESS"
  9575. 3CFC7 {} TEMPkey
  9576. 3CFCC $  "TEMP"
  9577. 3CFE8 {} ELECkey
  9578. 3CFED $  "ELEC"
  9579. 3D009 {} ANGLkey
  9580. 3D00E $  "ANGL"
  9581. 3D02A {} LIGHTkey
  9582. 3D02F $  "LIGHT"
  9583. 3D04D {} UNITSRADkey
  9584. 3D061 {} VISCkey
  9585. 3D066 $  "VISC"
  9586. 3D08C :: LENGmenu
  9587. 3D096 {} LENGmenulist
  9588. 3D096 @  { length units... }
  9589. 3D09B $  "m"
  9590. 3D0A7 $  "cm"
  9591. 3D0B5 $  "mm"
  9592. 3D0C3 $  "yd"
  9593. 3D0D1 $  "ft"
  9594. 3D0DF $  "in"
  9595. 3D0ED $  "Mpc"
  9596. 3D0FD $  "pc"
  9597. 3D10B $  "lyr"
  9598. 3D11B $  "au"
  9599. 3D129 $  "km"
  9600. 3D137 $  "mi"
  9601. 3D145 $  "nmi"
  9602. 3D155 $  "miUS"
  9603. 3D167 $  "chain"
  9604. 3D17B $  "rd"
  9605. 3D189 $  "fath"
  9606. 3D19B $  "ftUS"
  9607. 3D1AD $  "mil"
  9608. 3D1BD $  "mu"
  9609. 3D1C9 $  "Angstrom"
  9610. 3D1D5 $  "fermi"
  9611. 3D1F3 :: AREAmenu
  9612. 3D1FD {} AREAmenulist
  9613. 3D1FD @  { all area units...}
  9614. 3D202 $  "m^2"
  9615. 3D212 $  "cm^2"
  9616. 3D224 $  "b"
  9617. 3D230 $  "yd^2"
  9618. 3D242 $  "ft^2"
  9619. 3D254 $  "in^2"
  9620. 3D266 $  "km^2"
  9621. 3D278 $  "ha"
  9622. 3D286 $  "a"
  9623. 3D292 $  "mi^2"
  9624. 3D2A4 $  "miUS^2"
  9625. 3D2BA $  "acre"
  9626. 3D2D6 :: VOLmenu
  9627. 3D2E0 {} VOLmenulist
  9628. 3D2E0 @  { All volume units...}
  9629. 3D2E5 $  "m^3"
  9630. 3D2F5 $  "st"
  9631. 3D303 $  "cm^3"
  9632. 3D315 $  "yd^3"
  9633. 3D327 $  "ft^3"
  9634. 3D339 $  "in^3"
  9635. 3D34B $  "l"
  9636. 3D357 $  "galUK"
  9637. 3D36B $  "galC"
  9638. 3D37D $  "gal"
  9639. 3D38D $  "qt"
  9640. 3D39B $  "pt"
  9641. 3D3A9 $  "ml"
  9642. 3D3B7 $  "cu"
  9643. 3D3C5 $  "ozfl"
  9644. 3D3D7 $  "ozUK"
  9645. 3D3E9 $  "tbsp"
  9646. 3D3FB $  "tsp"
  9647. 3D40B $  "bbl"
  9648. 3D41B $  "bu"
  9649. 3D429 $  "pk"
  9650. 3D437 $  "fbm"
  9651. 3D451 :: UNITSTIMEmenu
  9652. 3D45B {} UNITSTIMEmenulist
  9653. 3D45B @  { All units of time.. }
  9654. 3D460 $  "yr"
  9655. 3D46E $  "d"
  9656. 3D47A $  "h"
  9657. 3D486 $  "min"
  9658. 3D496 $  "s"
  9659. 3D4A2 $  "Hz"
  9660. 3D4BA :: SPEEDmenu
  9661. 3D4C4 {} SPEEDmenulist
  9662. 3D4C4 @  { All units of speed ..}
  9663. 3D4C9 $  "m/s"
  9664. 3D4D9 $  "cm/s"
  9665. 3D4EB $  "ft/s"
  9666. 3D4FD $  "kph"
  9667. 3D50D $  "mph"
  9668. 3D51D $  "knot"
  9669. 3D52F $  "c"
  9670. 3D53B $  "ga"
  9671. 3D553 :: MASSmenu
  9672. 3D55D {} MASSmenulist
  9673. 3D55D @  { All units of mass..}
  9674. 3D562 $  "kg"
  9675. 3D570 $  "g"
  9676. 3D57C $  "lb"
  9677. 3D58A $  "oz"
  9678. 3D598 $  "slug"
  9679. 3D5AA $  "lbt"
  9680. 3D5BA $  "ton"
  9681. 3D5CA $  "tonUK"
  9682. 3D5DE $  "t"
  9683. 3D5EA $  "ozt"
  9684. 3D5FA $  "ct"
  9685. 3D608 $  "grain"
  9686. 3D61C $  "u"
  9687. 3D628 $  "mol"
  9688. 3D642 :: FORCEmenu
  9689. 3D64C {} FORCEmenulist
  9690. 3D64C @  {"N" "dyn" "gf" "kip" "Obi-wan" "lbf" "pdl"}
  9691. 3D651 $  "N"
  9692. 3D65D $  "dyn"
  9693. 3D66D $  "gf"
  9694. 3D67B $  "kip"
  9695. 3D68B $  "lbf"
  9696. 3D69B $  "pdl"
  9697. 3D6B5 :: ENRGmenu
  9698. 3D6BF {} ENRGmenulist
  9699. 3D6BF @  { All units of energy }
  9700. 3D6C4 $  "J"
  9701. 3D6D0 $  "erg"
  9702. 3D6E0 $  "Kcal"
  9703. 3D6F2 $  "cal"
  9704. 3D702 $  "Btu"
  9705. 3D712 $  "ft*lbf"
  9706. 3D728 $  "therm"
  9707. 3D73C $  "MeV"
  9708. 3D74C $  "eV"
  9709. 3D764 :: POWRmenu
  9710. 3D76E {} POWRmenulist
  9711. 3D76E @  {"W" "hp" "Black"}
  9712. 3D773 $  "W"
  9713. 3D77F $  "hp"
  9714. 3D797 :: PRESSmenu
  9715. 3D7A1 {} PRESSmenulist
  9716. 3D7A6 $  "Pa"
  9717. 3D7B4 $  "atm"
  9718. 3D7C4 $  "bar"
  9719. 3D7D4 $  "psi"
  9720. 3D7E4 $  "torr"
  9721. 3D7F6 $  "mmHg"
  9722. 3D808 $  "inHg"
  9723. 3D81A $  "inH2O"
  9724. 3D838 :: TEMPmenu
  9725. 3D842 {} TEMPmenulist
  9726. 3D847 $  "oC"
  9727. 3D855 $  "oF"
  9728. 3D863 $  "K"
  9729. 3D86F $  "oR"
  9730. 3D887 :: ELECmenu
  9731. 3D891 {} ELECmenulist
  9732. 3D891 @  { "V" "A" "C" "chair" "Omega" "F" "Fdy" "H" "mho" "S" "T" "Wb" }
  9733. 3D896 $  "V"
  9734. 3D8A2 $  "A"
  9735. 3D8AE $  "C"
  9736. 3D8BA $  "Omega"
  9737. 3D8C6 $  "F"
  9738. 3D8D2 $  "W"
  9739. 3D8DE $  "Fdy"
  9740. 3D8EE $  "H"
  9741. 3D8FA $  "mho"
  9742. 3D90A $  "S"
  9743. 3D916 $  "T"
  9744. 3D922 $  "Wb"
  9745. 3D93A :: ANGLmenu
  9746. 3D944 {} ANGLmenulist
  9747. 3D949 $  "^o"
  9748. 3D955 $  "r"
  9749. 3D961 $  "grad"
  9750. 3D973 $  "arcmin"
  9751. 3D989 $  "arcs"
  9752. 3D99B $  "sr"
  9753. 3D9B3 :: LIGHTmenu
  9754. 3D9BD {} LIGHTlist
  9755. 3D9C2 $  "fc"
  9756. 3D9D0 $  "flam"
  9757. 3D9E2 $  "lx"
  9758. 3D9F0 $  "ph"
  9759. 3D9FE $  "sb"
  9760. 3DA0C $  "lm"
  9761. 3DA1A $  "cd"
  9762. 3DA28 $  "lam"
  9763. 3DA42 :: UNITSRADmenu
  9764. 3DA4C {} UNITSRADmenulist
  9765. 3DA4C @  {"Gy" "rad" "rem" "Sv" "Bq" "Tshrnl" "Ci" "R" }
  9766. 3DA51 $  "Gy"
  9767. 3DA5F $  "rad"
  9768. 3DA6F $  "rem"
  9769. 3DA7F $  "Sv"
  9770. 3DA8D $  "Bq"
  9771. 3DA9B $  "Ci"
  9772. 3DAA9 $  "R"
  9773. 3DABF :: VISCmenu
  9774. 3DAC9 {} VISCmenulist
  9775. 3DAC9 @  { "P" "St" }
  9776. 3DACE $  "P"
  9777. 3DADA $  "St"
  9778. 3DAF2 {} UNITSCMDmenu
  9779. 3DAF2 @  { CONVERT UBASE UVAL UFACT UNIT }
  9780. 3DB1A :: CKGET{}
  9781. 3DB1A @  Get stored list (1:{}/ID/LAM) ({} as arg stays the same)
  9782. 3DB1A @  Errors if no list is stored (or argument)
  9783. 3DB5B {} HEXkey
  9784. 3DB60 :: HEXlabelprg
  9785. 3DB6A $  "HEX"
  9786. 3DB84 :: DoHEXkey
  9787. 3DB9D {} DECkey
  9788. 3DBA2 :: DEClabelprg
  9789. 3DBAC $  "DEC"
  9790. 3DBC6 :: DoDECkey
  9791. 3DBDF {} OCTkey
  9792. 3DBE4 :: OCTlabelprg
  9793. 3DBEE $  "OCT"
  9794. 3DC08 :: DoOCTkey
  9795. 3DC21 {} BINkey
  9796. 3DC26 :: BINlabelprg
  9797. 3DC30 $  "BIN"
  9798. 3DC4A :: DoBINkey
  9799. 3DC63 {} IFkey
  9800. 3DC6D {} IFkeyops
  9801. 3DC77 :: DoIFkeyLS
  9802. 3DC95 :: DoIFkeyRS
  9803. 3DCC2 {} CASEkey
  9804. 3DCCC {} CASEkeyops
  9805. 3DCD6 :: DoCASEkeyLS
  9806. 3DCF9 :: DoCASEkeyRS
  9807. 3DD1C {} STARTkey
  9808. 3DD26 {} STARTkeyops
  9809. 3DD30 :: DoSTARTkeyLS
  9810. 3DD49 :: DoSTARTkeyRS
  9811. 3DD6C {} FORkey
  9812. 3DD76 {} FORkeyops
  9813. 3DD80 :: DoFORkeyLS
  9814. 3DD99 :: DoFORkeyRS
  9815. 3DDBC {} DOkey
  9816. 3DDC6 {} DOkeyops
  9817. 3DDD0 :: DoDOkeyLS
  9818. 3DDF8 {} WHILEkey
  9819. 3DE02 {} WHILEkeyops
  9820. 3DE0C :: DoWHILEkeyLS
  9821. 3DE34 {} IFERRkey
  9822. 3DE3E {} IFERRkeyops
  9823. 3DE48 :: DoIFERRkeyLS
  9824. 3DE66 :: DoIFERRkeyRS
  9825. 3DE93 :: GRAPHmenu
  9826. 3DE9D {} GRAPHmenulist
  9827. 3DE9D @  { ZOOMkey Z-BOXkey CENTRkey COORDkey LABELkey FCNkey DOT+key
  9828. 3DE9D @    DOT-key GRAPHLINEkey GRAPHTLINEkey GRAPHBOXkey GRAPHCIRCLEkey
  9829. 3DE9D @    MARKkey GRAPHREPLkey GRAPHSUBkey GRAPHDELkey ?/-key KEYSkey }
  9830. 3DEBB {} FCNkey
  9831. 3DEC0 :: FCNlabelprg
  9832. 3DECA $  "FCN"
  9833. 3DF2F :: FCNmenu
  9834. 3DF39 {} FCNmenulist
  9835. 3DF39 @  { FCNROOTkey ISECTkey SLOPEkey FCNAREAkey FCNEXTRkey FCNEXITkey
  9836. 3DF39 @    F(X)key F'key FCNNXEQkey }
  9837. 3DF3E {} FCNROOTkey
  9838. 3DF43 $  "ROOT"
  9839. 3DF5F {} ISECTkey
  9840. 3DF64 $  "ISECT"
  9841. 3DF82 {} SLOPEkey
  9842. 3DF87 $  "SLOPE"
  9843. 3DFA5 {} FCNAREAkey
  9844. 3DFAA $  "AREA"
  9845. 3DFC6 {} FCNEXTRkey
  9846. 3DFCB $  "EXTR"
  9847. 3DFE7 {} FCNEXITkey
  9848. 3DFF1 :: DoFCNEXITkey
  9849. 3E019 {} F(X)key
  9850. 3E01E $  "F(X)"
  9851. 3E03A {} F'key
  9852. 3E03F $  "F'"
  9853. 3E057 {} FCNNXEQkey
  9854. 3E05C $  "NXEQ"
  9855. 3E06E :: DoFCNNXEQkey
  9856. 3E091 {} +/-key
  9857. 3E096 :: +/-labelprg
  9858. 3E0A0 $  "+/-"
  9859. 3E0C4 {} GRAPHREPLkey
  9860. 3E0C9 $  "REPL"
  9861. 3E0E5 {} GRAPHSUBkey
  9862. 3E0EA $  "SUB"
  9863. 3E104 {} GRAPHDELkey
  9864. 3E109 $  "DEL"
  9865. 3E123 {} COORDkey
  9866. 3E128 $  "COORD"
  9867. 3E146 {} GRAPHLABELkey
  9868. 3E15A {} CENTRkey
  9869. 3E16E {} ZOOMkey
  9870. 3E173 :: ZOOMlabelprg
  9871. 3E17D $  "ZOOM"
  9872. 3E19E {} KEYSkey
  9873. 3E1A3 $  "Keys"
  9874. 3E1BF {} MARKkey
  9875. 3E1C4 $  "MARK"
  9876. 3E1E0 {} GRAPHLINEkey
  9877. 3E1F4 {} GRAPHTLINEkey
  9878. 3E208 {} GRAPHBOXkey
  9879. 3E21C {} GRAPHCIRLCEkey
  9880. 3E221 $  "CIRCLE"
  9881. 3E241 {} Z-BOXkey
  9882. 3E246 $  "Z-BOX"
  9883. 3E25A {} Z-BOXkeyops
  9884. 3E273 {} DOT+key
  9885. 3E278 :: DOT+labelprg
  9886. 3E282 $  "DOT+"
  9887. 3E2A8 {} DOT-key
  9888. 3E2AD :: DOT-keyprg
  9889. 3E2B7 $  "DOT-"
  9890. 3E2DD {} HP:<SkipKey
  9891. 3E2E2 $  "<-SKIP"
  9892. 3E2F6 :: Do<SkipKey
  9893. 3E30A ::
  9894. 3E35F {} HP:>SkipKey
  9895. 3E364 $  "SKIP->"
  9896. 3E378 :: Do>SkipKey
  9897. 3E38C ::
  9898. 3E3E1 {} HP:<DelKey
  9899. 3E3E6 $  "<-DEL"
  9900. 3E3F8 {} <DelKeyops
  9901. 3E3FD :: Do<DelKey
  9902. 3E425 ::
  9903. 3E452 ::
  9904. 3E47F :: Do<DelKeyRS
  9905. 3E49D ::
  9906. 3E4CA {} HP:>DelKey
  9907. 3E4CF $  "DEL->"
  9908. 3E4E1 {} >DelKeyops
  9909. 3E4E6 :: Do>DelKey
  9910. 3E54A :: Do>DelKeyRS
  9911. 3E586 {} HP:TogInsertKey
  9912. 3E58B :: TogInslabelprg
  9913. 3E595 $  "INS"
  9914. 3E5AF :: DoTogInsKey
  9915. 3E5CD {} HP:IStackKey
  9916. 3E5D2 $  "upSTK"
  9917. 3E5EE :: DoTogLowCkey
  9918. 3E607 :: NotEditing?COLADoBadKey
  9919. 3E62A :: Editing?COLADoBadKey
  9920. 3E64D :: NotStart?PREVisSpcOrNL?
  9921. 3E64D @  Not in the beg. of cmd line & Prev char is space or <NL> (->2:f 1:f)
  9922. 3E684 :: CKCRS>LEFT
  9923. 3E6A2 :: NEXTisSpcOrNL????????????
  9924. 3E6CF :: CKCRS>RIGHT
  9925. 3E6ED ::
  9926. 3E71A {} IOSETUPkey
  9927. 3E71F :: IOSETUPlabelprg
  9928. 3E729 $  "SETUP"
  9929. 3E742 :: DoIOSETUPkey
  9930. 3E774 {} STDkey
  9931. 3E779 :: STDlabelprg
  9932. 3E783 $  "STD"
  9933. 3E79D :: DoSTDkey
  9934. 3E7B6 {} FIXkey
  9935. 3E7BB :: FIXlabelprg
  9936. 3E7C5 $  "FIX"
  9937. 3E7E9 {} SCIkey
  9938. 3E7EE :: SCIlabelprg
  9939. 3E7F8 $  "SCI"
  9940. 3E81C {} ENGkey
  9941. 3E821 :: ENGlabelprg
  9942. 3E82B $  "ENG"
  9943. 3E84F {} MLkey
  9944. 3E854 :: MLlabelprg
  9945. 3E85E $  "ML"
  9946. 3E876 :: DoMLkey
  9947. 3E88F {} DEGkey
  9948. 3E894 :: DEGlabelprg
  9949. 3E89E $  "DEG"
  9950. 3E8B8 :: DoDEGkey
  9951. 3E8D1 {} RADkey
  9952. 3E8D6 :: RADlabelkey
  9953. 3E8EF :: DoRADkey
  9954. 3E908 {} GRADkey
  9955. 3E90D :: GRADlabelkey
  9956. 3E935 :: DoGRADkey
  9957. 3E94E {} XYZkey
  9958. 3E953 :: XYZlabelkey
  9959. 3E96C :: DoXYZkey
  9960. 3E98A {} R\Zkey
  9961. 3E98F :: R\Zlabelprg
  9962. 3E9C6 :: DoR\Zkey
  9963. 3E9EE {} R\\key
  9964. 3E9F3 :: R\\labelprg
  9965. 3EA25 :: DoR\\key
  9966. 3EA4D {} CMDkey
  9967. 3EA52 :: CMDlabelkey
  9968. 3EA5C $  "CMD"
  9969. 3EA76 :: DoCMDkey
  9970. 3EA9E {} STKkey
  9971. 3EAA3 :: STKlabelprg
  9972. 3EAAD $  "STK"
  9973. 3EAC7 :: DoSTKkey
  9974. 3EAEA ::
  9975. 3EB1C {} ARGkey
  9976. 3EB21 :: ARGlabelkey
  9977. 3EB2B $  "ARG"
  9978. 3EB45 :: DoARGkey
  9979. 3EB68 {} FM,key
  9980. 3EB6D :: FM,labelkey
  9981. 3EB77 $  "FM,"
  9982. 3EB91 :: DoFM,key
  9983. 3EBAF {} CLKkey
  9984. 3EBB4 :: CLKlabelkey
  9985. 3EBBE $  "CLK"
  9986. 3EBD8 :: DoCLKkey
  9987. 3EBF6 {} MODLkey
  9988. 3EBFB :: MODLlabelkey
  9989. 3EC05 $  "MODL"
  9990. 3EC1C :: DoMODLkey
  9991. 3EC44 :: PTYPEkeyNSroutine
  9992. 3EC71 {} HP:NullMenuKey
  9993. 3EC71 @  dead menu key  (:: NULL$ DoBadKey ; )
  9994. 3EC85 :: HP:NoExitAction
  9995. 3EC85 @  Sets NOP as action when menu is exited (:: 'NOP ExitAction! ;)
  9996. 3EC99 :: HP:Box/StdLabel
  9997. 3EC99 @  If pop stk1 = True, then build checked menu key, else build normal menu key
  9998. 3ECB2 :: HP:Box/StdLbl:
  9999. 3ECD0 :: NS:SysStd/BoxLab
  10000. 3ECD0 @  Build menugrob according to next info (1st "NAME" 2nd #flag)
  10001. 3ECD0 @  Makes a menu grob of "NAME", then INSERTS a square if #flag is set
  10002. 3ECD0 @  Example: :: TestSysStd/BoxLabel "SYM" #3 ;
  10003. 3ECEE :: NS:SysBox/StdLab
  10004. 3ECEE @  Build menugrob according to next info (1st "NAME" 2nd #flag)
  10005. 3ECEE @  Makes a menu grob of "NAME", then APPENDS a square if #flag is set
  10006. 3ED0C :: HP:Std/BoxLabel
  10007. 3ED25 :: BaseEQBox/StdLabel
  10008. 3ED25 @  Used like: :: BaseEQBox/StdLabel "HEX" #10 ; -> grob
  10009. 3ED48 :: ModeEQBox/StdLabel
  10010. 3ED48 @  Used like: :: ModeEQBox/StdLabel "FIX" #1 ; -> grob
  10011. 3ED6B :: NS:DirLabel:
  10012. 3ED6B @  Build directory menu key graphic from next $ 
  10013. 3ED6B @  Example: :: DirLabel: "SOLVR" ; -> grob
  10014. 3ED84 :: TogSysFlag:SetDA2bNoCh
  10015. 3ED84 @  Toggles next system flag, then SetDA2bNoCh
  10016. 3ED84 @  Example: :: TogSysFlag:SetDA2bNoCh #3 SetDA12NoCh ; is DoSYMkey
  10017. 3EDA2 :: NS:TogSysFlag
  10018. 3EDA2 @  Toggles system flag (1:#n)
  10019. 3EDC5 :: PrgmEntry?DoKeyOb:ElseEVALAtUserStack:
  10020. 3EDF2 :: PrgmEntry?DoCAR:/DoKeyOb
  10021. 3EDF2 @  Does R> then if PrgmEntry? takes CARCOMP and finally DoKeyOb
  10022. 3EE1A :: HP:Do1st/2nd+:
  10023. 3EE1A :: PRG?Keycase
  10024. 3EE1A @  If Prg-Entry Mode then DoNextKey&Ret else SkipNext&Cont
  10025. 3EE47 :: NS:Take2ToDo
  10026. 3EE47 @  Take next 2 to command line (with spaces and linefeeds)
  10027. 3EE65 :: NS:Take3ToDo
  10028. 3EE92 :: NS:Take4ToDo
  10029. 3EEC9 ::
  10030. 3EEEC ::
  10031. 3EF14 :: SETUnitsRoutines
  10032. 3EF14 @  Sets Units key routines
  10033. 3EF14 @  Example: To make a units menu of your own:
  10034. 3EF14 @  :: SETUnitsRoutines { "Playboy" "Mayfair" "Hustler"... } ; InitMenu
  10035. 3EF14 @  Now you can easily make a catalog program...
  10036. 3EF1E :: MenuRoutineNS
  10037. 3EF1E @  units Unshifted Menu Key routine
  10038. 3EF41 :: MenuRoutineLS
  10039. 3EF41 @  units Left-shifted Menu Key routine
  10040. 3EF64 :: MenuRoutineRS
  10041. 3EF64 @  units Right-shifted Menu Key routine
  10042. 3EF87 ::
  10043. 3EFB4 ::
  10044. 3EFC8 ::
  10045. 3EFE6 :: NS:SetTopMnuKeys
  10046. 3EFE6 @  Stores TopMenuPrgNS as NS routine and DROPDoBadKey as LS and RS ones
  10047. 3EFF0 :: TopMenuPrgNS
  10048. 3EFF0 @  Top-level Unshifted Menu Key routine
  10049. 3F00E :: NS:SetMenuKeys
  10050. 3F00E @  Stores stk1 as NS routine and DROPDoBadKey as LS and RS routines
  10051. 3F036 :: SetTopMenuLabelDef&NoExitAction
  10052. 3F040 :: TopMenuLabelDef
  10053. 3F040 @  Action taken when in a 'Top' menu like MTH PRG etc
  10054. 3F077 ::
  10055. 3F09F ::
  10056. 3F0D6 {} { DNEGkey DINVkey *1key ^1key /1key +1-1key RCOLCTkey }
  10057. 3F103 #  NS:r_RULES1
  10058. 3F10D #  NS:r_RULES2
  10059. 3F117 #  NS:r_RULES3
  10060. 3F121 #  NS:r_RULES4
  10061. 3F12B #  NS:r_RULES5
  10062. 3F135 #  NS:r_RULES6
  10063. 3F13F #  NS:r_RULES7
  10064. 3F149 #  NS:r_RULES8
  10065. 3F153 #  NS:r_RULES9
  10066. 3F15D #  NS:r_RULES10
  10067. 3F167 :: Do0ChrInv
  10068. 3F17B :: Do1ChrInv
  10069. 3F18F :: Do2ChrInv
  10070. 3F1A3 :: Do3ChrInv
  10071. 3F1B7 :: Do4ChrInv
  10072. 3F1CB :: Do5ChrInv
  10073. 3F1DF :: ChrInv
  10074. 3F26B P
  10075. 3F376 :: NS:LIBRARYmenu
  10076. 3F38A :: LIBMenuRoutineNS
  10077. 3F38A @  Library Unshifted Menu Key routine
  10078. 3F3B2 ::
  10079. 3F3DA ::
  10080. 3F407 {} PORT0key
  10081. 3F40C $  "PORT0"
  10082. 3F420 :: DoPORT0key
  10083. 3F457 ::
  10084. 3F45C {} PORT1key
  10085. 3F461 $  "PORT1"
  10086. 3F475 :: DoPORT1key
  10087. 3F4B1 ::
  10088. 3F4B6 {} PORT2key
  10089. 3F4BB $  "PORT2"
  10090. 3F4CF :: DoPORT2key
  10091. 3F50B :: StrangeMetahandle
  10092. 3F50B @  (Obn ... Ob1 #n -> ...{Obn-2 Obn-3} {Obn Obn-1} #m
  10093. 3F547 :: TWO{}psh1&rev
  10094. 3F547 @  (Meta1 Meta2 Ob1 Ob2 -> Meta1&{Ob1 Ob2} Meta2)
  10095. 3F56A ::
  10096. 3F588 ::
  10097. 3F5BF ::
  10098. 3F5DD P
  10099. 3F64C ::
  10100. 3F6B5 :: SHOWPORTmenu
  10101. 3F6B5 @  Goes to #port menu (Do PORTmenuOn first to stay there)
  10102. 3F6D8 :: VARmenu
  10103. 3F6E2 :: ONESTOMenuRow
  10104. 3F70A ::
  10105. 3F723 :: ONE_STOMenuRow_ZERO_LoadTouchTbl
  10106. 3F76E ::
  10107. 3F78C :: NS:DUPExitAtLOOP
  10108. 3F7B4 ::
  10109. 3F7EB :: NS:ExitAtLOOPDUP
  10110. 3F831 :: KeysNSprg
  10111. 3F859 :: KeysLSprg
  10112. 3F87C :: KeysRSprg
  10113. 3F89F :: KeysAprg
  10114. 3F8C2 :: KeysALSprg
  10115. 3F8E0 :: KeysARSprg
  10116. 3F8FE ::
  10117. 3F944 :: OVER#1=IT#3+
  10118. 3F962 :: OVER#2=IT#1+
  10119. 3F980 :: OVER#3=IT#2+
  10120. 3F99E :: OVER#2=IT#1-
  10121. 3F9BC :: OVER#3=IT#1+
  10122. 3F9DA ::
  10123. 3F9FD ::
  10124. 3FA57 :: HP:Key>U/SKeyOb
  10125. 3FA7A ::
  10126. 3FAC5 ::
  10127. 3FACF g' ID_SKEY
  10128. 3FAE8 l' LAM_SKEY
  10129. 3FB1A :: HP:Key>StdKeyOb
  10130. 3FB1F #  NS:r_KDefs
  10131. 3FB33 ::
  10132. 3FB97 ::
  10133. 3FBE7 ::
  10134. 3FC0F ::
  10135. 3FC7D ::
  10136. 3FC9B :: Clr1USRSetDA1Bad
  10137. 3FCAF :: HP:SetKeysNS
  10138. 3FCDC :: NS:SetKeysLS
  10139. 3FD09 :: NS:SetKeysRS
  10140. 3FD36 :: NS:SetKeysA
  10141. 3FD63 :: NS:SetKeysALS
  10142. 3FD90 :: NS:SetKeysARS
  10143. 3FDBD :: NS:2DropBadKey
  10144. 3FDC7 :: NS:DropBadKey
  10145. 3FDC7 @  NULLMenuKey routine
  10146. 3FDD1 :: HP:DoBadKey
  10147. 3FDD1 @  chirp (337 Hz, 70 msec), freeze display
  10148. 3FDFE :: HP:'DoBadKey
  10149. 3FDFE @  unevaluated chirp (337 Hz, 70 msec), freeze display
  10150. 3FE12 :: HP:'DoBadKeyT
  10151. 3FE26 ::
  10152. 3FE44 :: HP:H/W>KeyCode
  10153. 3FE44 @  (1:#keycode -> 1:#) (#80->#1E #40->#23 #C0->#28)
  10154. 3FE7B ::
  10155. 3FEEE ::
  10156. 3FF1B :: HP:?CaseKeyDef
  10157. 3FF1B @  ?CaseKeyDef <keydef> == #casedrop :: ' <keydef> True ;
  10158. 3FF48 :: HP:?CaseRomptr@
  10159. 3FF75 P  NS:StdKeys?
  10160. 3FF75 @  Tst_7068C:4 (are unassigned keys activated? -> True/False)
  10161. 3FF86 P  NS:SetStdKeys
  10162. 3FF86 @  Set_7068C:4 (activate unassigned keys)
  10163. 3FF97 P  NS:ClrStdKeys
  10164. 3FF97 @  Clr_7068C:4 (deactivate unassigned keys)
  10165. 3FFA8 P  NS:USR1MODE?
  10166. 3FFA8 @  (True = USR1MODE, False = USERMODE)
  10167. 3FFA8 @  Tst_70688:1
  10168. 3FFB9 P  NS:SetUSR1MODE
  10169. 3FFB9 @  Set_70688:1
  10170. 3FFCA P  NS:ClrUSR1MODE
  10171. 3FFCA @  Clr_70688:1
  10172. 3FFDB :: DoMenuKey1NS
  10173. 3FFF4 :: DoMenuKey1LS
  10174. 4000D :: DoMenuKey1RS
  10175. 40026 :: DoMenuKey2LS
  10176. 4002F P
  10177. 4003F :: DoMenuKey2NS
  10178. 40058 :: DoMenuKey2RS
  10179. 40071 :: DoMenuKey3NS
  10180. 4008A :: DoMenuKey3LS
  10181. 400A3 :: DoMenuKey3RS
  10182. 400BC :: DoMenuKey4NS
  10183. 400D5 :: DoMenuKey4LS
  10184. 400EE :: DoMenuKey4RS
  10185. 40107 :: DoMenuKey5NS
  10186. 40120 :: DoMenuKey5LS
  10187. 40139 :: DoMenuKey5RS
  10188. 40152 :: DoMenuKey6NS
  10189. 4016B :: DoMenuKey6LS
  10190. 40184 :: DoMenuKey6RS
  10191. 4019D :: HP:StdMenuKeyNS
  10192. 4019D @  General Unshifted Menu Key routine
  10193. 401D4 :: HP:StdMenuKeyLS
  10194. 401D4 @  General Left-shifted Menu Key routine
  10195. 4021F :: NS:StdMenuKeyRS
  10196. 4021F @  General Right-shifted Menu Key routine
  10197. 4026A :: ONE_NTHELCOMP_ITE_DoKeyOb_DoBadKey
  10198. 4027E :: TWO_NTHELCOMP_ITE_DoKeyOb_DoBadKey
  10199. 40292 :: THREE_NTHELCOMP_ITE_DoKeyOb_DoBadKey
  10200. 402A6 :: NTHELCOMP_ITE_DoKeyOb_DoBadKey
  10201. 402C4 ::
  10202. 402EC ::
  10203. 40305 ::
  10204. 4031E ::
  10205. 40337 :: HP:DoNameKeyRS
  10206. 40350 :: HP:DoNameKeyLRS
  10207. 40387 ::
  10208. 403C3 ::
  10209. 403EB ::
  10210. 40413 ::
  10211. 40431 ::
  10212. 40454 :: HP:DoKeyOb
  10213. 40454 @  Main key handler (acts like menu key, takes stk1) (1:Any)
  10214. 4048F P
  10215. 404A9 :: DoStkKey$
  10216. 404A9 @  behave as TOS is assigned to a key/menulbl (1:String)
  10217. 404BD :: DoStkKeyUM
  10218. 404BD @  behave as TOS is assigned to a key/menulbl (1:Unit)
  10219. 404E5 :: DoStkKeyseco
  10220. 404E5 @  behave as TOS is assigned to a key/menulbl (1:Program/Command)
  10221. 4051C :: DoStkKeyXLIB
  10222. 4051C @  behave as TOS is assigned to a key/menulbl (1:XLIB Name)
  10223. 4053F ::
  10224. 4053F @  Funct? ins in cmdline w/ ALGsyntax else PRG?->EVALorINS (1:Cmd/Funct)
  10225. 4055D ::
  10226. 40580 ::
  10227. 4059E ::
  10228. 405BC :: DoStkKeyALG
  10229. 405BC @  behave as TOS is assigned to a key/menulbl (1:Algebraic)
  10230. 405F3 :: DoStkKeyAny
  10231. 405F3 @  behave as TOS is assigned to a key/menulbl (1:Any)
  10232. 40625 :: >CmdLineSep
  10233. 40625 @  Insert stk1 in cmdline between 2 blanks (1:Any)
  10234. 40648 ::
  10235. 4065C ::
  10236. 40693 :: "()"&$
  10237. 406A7 ::
  10238. 406E3 ::
  10239. 4073D ::
  10240. 40788 :: HP:TakeOver
  10241. 40788 @  A null program
  10242. 40792 P
  10243. 407FB :: NS:TakeOver'
  10244. 4080F ::
  10245. 40828 :: TakeOverGETPROC
  10246. 40828 @  get object bound to menu key (key number follows)
  10247. 40841 ::
  10248. 4085A :: DoubleTakeOver
  10249. 4085A @  :: TakeOver ;
  10250. 40869 ::
  10251. 40882 :: OVERTYPECOL?NOTcsdrpfls_OVERCARCOMPEQ
  10252. 408AA :: HP:ImmedEntry?
  10253. 408AA @  Not PRGMODE? nor AlgEntryOn?
  10254. 408C3 :: NAME?DECOMP$?EDITDECOMP$
  10255. 408C3 @  If Level1 = LAM or ID then DECOMP$ else EDITDECOMP$
  10256. 408F0 ::
  10257. 4091D ::
  10258. 4093B g' ID_alphaENTER
  10259. 4098A ::
  10260. 409B2 ::
  10261. 409DF g' ID_betaENTER
  10262. 40A0B :: NS:CKID>$
  10263. 40A0B @  If level1 = LAM/ID then ID>$ else NULL$
  10264. 40A4C :: 62&63SystFlagsOn?
  10265. 40A6F P  StoExec1Name
  10266. 40A6F @  Store name of current prg (1:Cmd/Funct/ID/XLIB)
  10267. 40A82 P  @Exec1Name
  10268. 40A82 @  Rcl name of current prg -> (1:Cmd/Funct/ID/XLIB)
  10269. 40A95 P  ClrExec1Name
  10270. 40A95 @  Clear name of current program
  10271. 40AA8 P  Exec1Named?
  10272. 40AA8 @  Is the current program unnamed? (-> 1:T/F)
  10273. 40ABB :: Parse.1_caseTRUE_ParseFail_FALSE
  10274. 40AD9 :: HP:Parse.1
  10275. 40AFC ::
  10276. 40B2E :: HP:ParseFail
  10277. 40B56 ::
  10278. 40BB5 :: CmdLineENTER
  10279. 40BB5 @  ENTER key executes this when on command line
  10280. 40BC9 :: HP:AtUserStack
  10281. 40BC9 @  :: CK0NOLASTWD 0LASTOWDOB! ;
  10282. 40BDD P
  10283. 40C76 ::
  10284. 40C94 P
  10285. 40CC3 P
  10286. 40CE9 :: BeginSTKSaved
  10287. 40D25 :: HP:LockAlpha
  10288. 40D39 :: HP:UnLockAlpha
  10289. 40D4D :: NS:TogUSER
  10290. 40D4D @  Toggle user keyboard flag -62
  10291. 40D61 :: NS:Set1USR
  10292. 40D61 @  Activate the user keyboard for one keypress
  10293. 40D7A :: NS:Clr1USR
  10294. 40D93 :: NS:NoCMDLINEcase
  10295. 40D93 @  If no command line exists COLA else SKIP
  10296. 40DC0 :: InitMenu&SetDA12NoCh
  10297. 40DD4 :: NS:InsChr:
  10298. 40DD4 @  Insert next item (character) in cmdline
  10299. 40DF7 :: NS:Ins$:
  10300. 40DF7 @  Insert next item (string w/o LF) in cmdline, move cursor left one pos
  10301. 40E1F :: SetALG&CKDA
  10302. 40E3D :: ClrALG&CKDA
  10303. 40E5B :: ClrALGSetPRGM&CKDA
  10304. 40E88 :: HP:REPEATER
  10305. 40EC4 :: EVALSLOW
  10306. 40EE7 P  HP:SLOW
  10307. 40EE7 @  delay loop (0055E)
  10308. 40EF3 @  MC: delay loop (C.A) and continue RPL
  10309. 40F02 P  HP:VERYSLOW
  10310. 40F02 @  delay loop (06B67)
  10311. 40F12 P  HP:VERYVERYSLOW
  10312. 40F12 @  delay loop (43206)
  10313. 40F22 :: HP:XEQStoKey
  10314. 40F5E ::
  10315. 40F86 :: HP:InitMenu
  10316. 40F86 @  Initializes menu (first page) (1:{menu}) (Used by TMENU with {})
  10317. 40F9A :: NS:InitMenu#
  10318. 40F9A @  display menu (2:menu,1:offset)
  10319. 40FCC ::
  10320. 41008 :: HP:StartMenu
  10321. 410C6 :: HP:SetThisRow
  10322. 410E9 ::
  10323. 41111 ::
  10324. 41125 #  <FFFFBh>
  10325. 4113E ::
  10326. 41175 :: HP:LoadTouchTbl
  10327. 411D4 ::
  10328. 4123D ::
  10329. 4129C ::
  10330. 412DD ::
  10331. 41305 ::
  10332. 41328 ::
  10333. 4132D {} ${0_1_2_&}
  10334. 4132D @  {"0" "1" "2" "&"}
  10335. 41355 ::
  10336. 41373 ::
  10337. 4139B :: NS:MenuOffset!
  10338. 4139B @  save current menu/offset as last menu/offset
  10339. 413B9 :: NS:LASTMENU
  10340. 413B9 @  display Last Menu
  10341. 413D2 :: NormReview
  10342. 413D2 @  This does the normal REVIEW
  10343. 41422 :: HP:>Review$
  10344. 41463 ::
  10345. 4147C ::
  10346. 41495 ::
  10347. 414BD $  ": "
  10348. 414DA ::
  10349. 41520 ::
  10350. 41552 ::
  10351. 41593 ::
  10352. 415A7 $  ": "
  10353. 415C9 :: HP:GetMenu%
  10354. 415C9 @  Internal RCLMENU (-> %menu.page)
  10355. 415D8 #  <6h>
  10356. 415F1 %  HP:%100
  10357. 4161A :: NS:GetMenuIP%
  10358. 4161A @  Get current menu number -> (1:%)
  10359. 41679 :: HP:InitMenu%
  10360. 41679 @  Internal TMENU (1:%)
  10361. 416BA ::
  10362. 416F1 :: NS:Menu@
  10363. 416F1 @  recall menu (1:#)
  10364. 41705 ::
  10365. 41741 :: PrepVariableMenu
  10366. 41741 @  (Used by CST,SOLVER) Stores prev to somekey thing, saves CONTEXT, sets 70684:4
  10367. 41764 :: CKEmbeddedDir
  10368. 41787 ::
  10369. 417AF P  Clr_70684:4
  10370. 417C0 P  Set_70684:4
  10371. 417D1 P  Tst_70684:4
  10372. 417E2 P  ClrPORTmenuOn
  10373. 417F3 P  SetPORTmenuOn
  10374. 41804 P  PORTmenuOn?
  10375. 41815 P  Clr_70684:8
  10376. 41826 P  Set_70684:8
  10377. 41837 P  Tst_70684:8
  10378. 41848 P  MenuRow!
  10379. 41848 @  save Current Menu Offset (1:#) (to 707C9)
  10380. 4185B P  HP:MenuRow@
  10381. 4185B @  get Current Menu Offset as # (from 707C9)
  10382. 4186E P  NS:LastMenuRow!
  10383. 4186E @  save Last Menu Offset (1:#) (to 707D3)
  10384. 41881 P  NS:LastMenuRow@
  10385. 41881 @  get Last Menu Offset as # (from 707D3)
  10386. 41894 P  NS:CurMenu!
  10387. 41894 @  save Current Menu (to 7061E)
  10388. 418A4 P  NS:CurMenu@
  10389. 418A4 @  get Current Menu (from 7061E)
  10390. 418B4 P  StoStk1
  10391. 418B4 @  save stk1 (pointer) into 70628
  10392. 418C4 P  DoStk1@
  10393. 418C4 @  execute saved stk1 (@70628 = pointer)
  10394. 418D4 P  HP:MenuRowAct!
  10395. 418D4 @  save stk1 (pointer) into 7062D
  10396. 418E4 P  NS:DoMenuRowAct@
  10397. 418E4 @  execute @7062D (pointer)
  10398. 418F4 P  HP:LabelDef!
  10399. 418F4 @  save stk1 (pointer) into 70632
  10400. 41904 P  HP:DoLabel
  10401. 41904 @  execute @70632 (pointer)
  10402. 41914 P  HP:MenuKeyNS!
  10403. 41914 @  save Unshifted Menu Key routine
  10404. 41924 P  NS:MenuKeyNS@
  10405. 41924 @  get Unshifted Menu Key routine
  10406. 41934 P  NS:DoMenuKeyNS@
  10407. 41934 @  execute Unshifted Menu Key routine
  10408. 41944 P  HP:MenuKeyLS!
  10409. 41944 @  save Left-shifted Menu Key routine
  10410. 41954 P  NS:DoMenuKeyLS@
  10411. 41954 @  execute Left-shifted Menu Key routine
  10412. 41964 P  HP:MenuKeyRS!
  10413. 41964 @  save Right-shifted Menu Key routine
  10414. 41974 P  NS:DoMenuKeyRS@
  10415. 41974 @  execute Right-shifted Menu Key routine
  10416. 41984 P  HP:ReviewKey!
  10417. 41984 @  save stk1 (pointer) into 70646
  10418. 41994 P  NS:DoReviewKey@
  10419. 41994 @  execute @70646 (pointer)
  10420. 419A4 P  Somekeything!
  10421. 419A4 @  save stk1 (pointer) into 70650
  10422. 419B4 P  DoSomekeything@
  10423. 419B4 @  execute @70650 (pointer)
  10424. 419C4 P  HP:ExitAction!
  10425. 419C4 @  save stk1 (pointer) into 70655
  10426. 419D4 P  NS:DoExitAction@
  10427. 419D4 @  execute @70655 (pointer)
  10428. 419E4 P  NS:LastMenu!
  10429. 419E4 @  save Last Menu
  10430. 419F4 P  NS:LastMenu@
  10431. 419F4 @  get Last Menu
  10432. 41A04 P  NS:SavedContext!
  10433. 41A04 @  Save current CONTEXT pointer to SAVEDCONTEXTpntr (7064B)
  10434. 41A14 P  NS:SavedContext@
  10435. 41A14 @  Get saved CONTEXT pointer from SAVEDCONTEXTpntr (@7064B)
  10436. 41A24 @  MC XFER: save stk1 (pointer) into @C.A
  10437. 41A2B @  MC XFER: push @C.A onto stack
  10438. 41A32 @  MC XFER: execute @C.A (pointer)
  10439. 41A39 :: NS:'ID_UserKeys
  10440. 41A39 @  unevaluated 'UserKeys' (ID)
  10441. 41A43 g' NS:ID_UserKeys
  10442. 41A5F :: 'ID_UserKeys.CRC
  10443. 41A5F @  unevaluated 'UserKeys.CRC' (ID)
  10444. 41A69 g' ID_UserKeys.CRC
  10445. 41A8D :: NS:UserMode?
  10446. 41A8D @  if User Mode active (-62) -> True/False
  10447. 41AA1 :: NS:STOKEYS{}
  10448. 41AA1 @  Intenral STOKEYS (1:{})
  10449. 41AC9 ::
  10450. 41B28 :: NS:ASN%
  10451. 41B28 @  Internal ASN (2:Any 1:%keycode)
  10452. 41B3C :: NS:DELKEYS{}
  10453. 41B3C @  Internal DELKEYS (1:{})
  10454. 41B69 :: NS:DELKEY%
  10455. 41B69 @  Internal DELKEYS (1:%keycode)
  10456. 41B8C :: NS:DELKEY
  10457. 41B8C @  delete user key definition (2:key# 1:plane#)
  10458. 41BA5 :: STOKEYSNAME
  10459. 41BA5 @  Internal STOKEYS (1:ID/LAM)
  10460. 41BB9 :: DELKEYSNAME
  10461. 41BB9 @  Internal DELKEYS (1:ID/LAM)
  10462. 41BCD ::
  10463. 41BD7 g' ID_S
  10464. 41BEA l' LAM_S
  10465. 41C02 :: NS:XEQRCLKEYS
  10466. 41C02 @  Recalls Assigned keys ({} if none)
  10467. 41C3E ::
  10468. 41C5C ::
  10469. 41CA2 :: HP:Ck&DecKeyLoc
  10470. 41CA2 @  validate key (rc.p) and convert to key# & plane#
  10471. 41D42 :: NS:#-#5+
  10472. 41D92 :: HP:CodePl>%rc.p
  10473. 41DB5 :: NS:ZEROSIX
  10474. 41DC9 :: TWENTYFOUR#-_FOUR_FIVE
  10475. 41E00 :: NS:#1+ROTDROP
  10476. 41E32 :: STOKEYS&CRC
  10477. 41E32 @  store into UserKeys with checksum in UserKeys.CRC
  10478. 41E78 :: NS:ASN
  10479. 41E78 @  save user key definition (3:value,2:key#,1:plane#)
  10480. 41E8C :: 48NDUPN{}
  10481. 41E8C @  (1:Ob -> 1:{Ob Ob Ob....Ob} (size = 49)
  10482. 41ECD :: 5NDUPN{}
  10483. 41ECD @  (1:Ob -> 1:{Ob Ob Ob Ob Ob Ob}
  10484. 41F13 :: NS:DELALLKEYS
  10485. 41F13 @  delete all user key definitions
  10486. 41F2C P  STOKeysPtr
  10487. 41F2C @  save ptr to User Keys
  10488. 41F3F P  NS:GETKEYS
  10489. 41F3F @  get User Keys
  10490. 41F52 P  UserKeys=0
  10491. 41F65 :: HP:WaitForKey
  10492. 41F65 @  Waits for key press (->2:#keycode 1:#keyplane)
  10493. 41F74 ::
  10494. 41FE7 ::
  10495. 42023 :: TakeOverTRUE1PUTLAM
  10496. 4203C :: NS:GetKeyOb
  10497. 42078 ::
  10498. 420A0 :: HP:GETKEY*
  10499. 420A0 @  keywait (-> 2:# 1:T | 2:F 1:F (If alarm/AutoOff)
  10500. 420F5 :: HP:ATTNxcp
  10501. 42113 :: HP:ALARMxcp
  10502. 42131 :: HP:SLEEPxcp
  10503. 42131 @  :: TurnOff FalseFalse ;
  10504. 42145 :: HP:UARTxcp
  10505. 42145 @  :: FLUSHRSBUF FalseFalse ;
  10506. 42159 :: HP:GETKEY
  10507. 42159 @  keywait (-> 2:# 1:T | 1:F (If attn/Alrm/AutoOff)
  10508. 4219A ::
  10509. 421D6 ::
  10510. 421F4 ::
  10511. 42208 ::
  10512. 42249 :: HP:UART?
  10513. 42262 P  HP:ATTN?
  10514. 42262 @  if @70679.A <> 0 -> True/False
  10515. 4227F P  HP:TIMEOUT?
  10516. 4229A @  MC XFER: if carry set -> True/False, continue RPL
  10517. 422A1 P  HP:ALARM?
  10518. 422C6 P
  10519. 422EB P
  10520. 42309 P
  10521. 4231A P  ( PrepareOFF )
  10522. 4231A @  (Called by OFF, no args)
  10523. 4237F P
  10524. 42396 P
  10525. 423BB *  HP:settimeout
  10526. 423D3 *  HP:clrtimeout
  10527. 423E4 ::
  10528. 42402 :: HP:KEYINBUFFER?
  10529. 4241B :: NS:?ATTNQUITNoWD
  10530. 4243E :: HP:?ATTNQUIT
  10531. 4245C :: HP:NoAttn?Semi
  10532. 4245C @  if @70679.A = 0, then iterate loop (pop back)
  10533. 42475 :: HP:DoCAlarmKey
  10534. 4248E P  HP:CtlAlarm!
  10535. 424A1 P
  10536. 424B4 P
  10537. 424C7 P
  10538. 424DA ::
  10539. 42525 :: SetCursory
  10540. 4256B :: CRS>LEFT
  10541. 4256B @  Move cursor in cmd line
  10542. 425B6 ::
  10543. 425D4 ::
  10544. 425ED :: SetCursory=0
  10545. 42615 ::
  10546. 42660 ::
  10547. 4269C :: 
  10548. 426C4 ::
  10549. 426F1 :: CmdLineBOTTOM?
  10550. 426F1 @  Is the cursor in the last line of the cmdline?
  10551. 4270A ::
  10552. 4272D :: NS:CmdLineTop?
  10553. 4272D @  Is the cursor in the first line of the cmdline?)
  10554. 42741 ::
  10555. 42764 :: Start?COLADoBadKey
  10556. 42787 ::
  10557. 427AF :: EditRepeat:
  10558. 42804 ::
  10559. 4280E :: NS:#-#-
  10560. 42831 ::
  10561. 4285E ::
  10562. 42886 ::
  10563. 428A9 ::
  10564. 428C2 ::
  10565. 428E5 ::
  10566. 428F9 ::
  10567. 42908 ::
  10568. 42935 ::
  10569. 42967 ::
  10570. 429A3 ::
  10571. 429CB :: DELUnderCRS????????
  10572. 42A07 P
  10573. 42AE4 :: DoStkKeyCHAR
  10574. 42AE4 :: HP:EchoChrKey
  10575. 42AE4 @  behave as TOS is assigned to a key/menulbl (1:Character)
  10576. 42B02 ::
  10577. 42B61 :: NS:InsNewLine
  10578. 42BA2 ::
  10579. 42BB6 ::
  10580. 42BD4 :: DoStkKey$NFr
  10581. 42BD4 @  behave as TOS is assgn. to a key/menulbl (DA1 Not Freezed) (1:String)
  10582. 42BFC :: NS:CKEdit$
  10583. 42BFC @  If $ has Char #0 then Doerr #102 (1:$)
  10584. 42C24 ::
  10585. 42C3D ::
  10586. 42C5B :: DUPONE1stLF?
  10587. 42C5B @  (1:$ -> 4:$ 3:#1 2:#lfpos 1:T/F) (#lfpos = 0 if no linefeed is found)
  10588. 42C74 :: 2DUPNEWLINEPOS
  10589. 42C74 @  (2:$ 1:#lfposition)
  10590. 42C92 :: DoStkKey$w/LF
  10591. 42C92 @  behave as TOS is assgn. to a key/mnlbl (1:String w/ LF)
  10592. 42CE2 :: DoStkKey$w/oLF
  10593. 42CE2 @  behave as TOS is assgn. to a key/mnlbl (1:String w/o LF)
  10594. 42CFB ::
  10595. 42D32 :: HP:EditLevel1
  10596. 42D46 :: HP:ViewLevel1
  10597. 42D5A ::
  10598. 42D82 :: HP:CharEdit
  10599. 42D82 @  Edit level1 (1:Any -> 2:Any 1:True if <ENTER> | 1:False if <ATTN> )
  10600. 42DC8 :: HP:ObEdit
  10601. 42DC8 @  Starts >EqWriter, >MatrixWriter or CharEdit on stk1
  10602. 42DFF :: %EDIT
  10603. 42DFF @  %VISIT  (1:Real)
  10604. 42E13 :: %VISIT
  10605. 42E13 @  %SVISIT  (1:Real)
  10606. 42E27 ::
  10607. 42E5E :: NAMEEDIT
  10608. 42E5E @  (1:ID/LAM)
  10609. 42E72 :: NAMEVISIT
  10610. 42E72 @  (1:ID/LAM)
  10611. 42E86 :: 
  10612. 42E86 @  SAFE@_HERE, 'REVAL (this must exit with 1:T/F) and if True STO back
  10613. 42EC7 :: HP:AdjEdModes
  10614. 42F30 :: NS:ClrAlgSetPrgm
  10615. 42F44 :: HP:InputLine
  10616. 42F53 ::
  10617. 42F8F :: #1=?Set/ClrINSmode
  10618. 42FC6 :: #1=?Clr/SetAlgEntry
  10619. 42FF8 :: #1=ITELock/UnlockAlpha
  10620. 43098 ::
  10621. 430CF ::
  10622. 43124 ::
  10623. 43179 ::
  10624. 43192 :: NS:TRUE1PUTLTRUE
  10625. 431B5 :: 5ROLLDROPParseFail
  10626. 43200 :: HP:InputLAttn
  10627. 43241 ::
  10628. 4325A :: HP:SetCursor
  10629. 43273 :: NS:SetCursor{}
  10630. 43287 ::
  10631. 4329B ::
  10632. 432C8 ::
  10633. 432DC ::
  10634. 43309 :: NS:SetCursorx
  10635. 43313 ::
  10636. 4332C ::
  10637. 4334F :: NS:DrpExitAtLOOP
  10638. 43363 ::
  10639. 43395 :: INPUT$
  10640. 43395 @  Internal INPUT (2:$ 1:$)
  10641. 433CC :: INPUT{}
  10642. 433CC @  Internal INPUT (2:$ 1:{})
  10643. 433DB {}
  10644. 43417 ::
  10645. 434A3 :: ONE4ROLLPUTLISTSWAP
  10646. 434B7 ::
  10647. 434D5 ::
  10648. 43534 ::
  10649. 4353E g' ID_ALG
  10650. 43555 l' LAM_ALG
  10651. 4356C ::
  10652. 4358A g' ID_alpha
  10653. 4359D l' LAM_alpha
  10654. 435B0 ::
  10655. 435CE g' ID_V
  10656. 435E1 l' LAM_V
  10657. 43608 ::
  10658. 43644 :: 4ROLLPUTLISTSWAP
  10659. 4365D :: DoIStackKey
  10660. 4365D @  Enter the interactive stack
  10661. 43671 ::
  10662. 43694 ::
  10663. 436B2 ::
  10664. 43716 :: 'UPSTKmenu
  10665. 43770 ::
  10666. 437A2 :: NS:?UpDispStack
  10667. 437C5 :: NS:UpDispStack
  10668. 43842 ::
  10669. 43883 ::
  10670. 43919 ::
  10671. 43982 ::
  10672. 439F5 ::
  10673. 43A36 ::
  10674. 43A77 ::
  10675. 43AAE :: NS:DECR2LAM
  10676. 43AD1 ::
  10677. 43B0D ::
  10678. 43B44 ::
  10679. 43B7B :: NS:INCR2LAM
  10680. 43B7B :: 2GETLAM#1+2PUTLAM
  10681. 43B9E ::
  10682. 43BDA :: NS:DROP3PUTLAM
  10683. 43BEE :: #4+3PUTLAMDROP
  10684. 43C16 ::
  10685. 43C48 :: DROPONE3PUTLAMFOUR2PUTLAM
  10686. 43C66 ::
  10687. 43C89 ::
  10688. 43CAC ::
  10689. 43CD4 :: :: TakeOver TRUE1PUTLAM ;
  10690. 43CE8 :: :: TakeOver DABad? ?SEMI TRUE1PUTLAM ;
  10691. 43D06 :: UPSTKmenu
  10692. 43EE0 @  3LAM = level
  10693. 43D10 {} UPSTKmenulist
  10694. 43D10 @  { ECHOkey UPSVIEWkey UPSPICKkey UPSROLLkey UPSROLLDkey
  10695. 43D10 @    UPS->LISTkey UPSDUPNkey UPSDRPNkey UPSKEEPkey UPSLEVELkey }
  10696. 43D15 {} ECHOkey
  10697. 43D29 {} UPSVIEWkey
  10698. 43D2E $  "VIEW"
  10699. 43D40 {} UPSVIEWkeyops
  10700. 43D5E {} UPSPICKkey
  10701. 43D72 {} UPSROLLkey
  10702. 43D86 {} UPSROLLDkey
  10703. 43D9A {} UPS->LISTkey
  10704. 43DAE {} UPSDUPNkey
  10705. 43DC2 {} UPSDRPNkey
  10706. 43DC7 $  "DRPN"
  10707. 43DE3 {} UPSKEEPkey
  10708. 43DE8 $  "KEEP"
  10709. 43E04 {} UPSLEVELkey
  10710. 43E09 $  "LEVEL"
  10711. 43E31 {} ECHOkey{}
  10712. 43E40 :: DoECHOkey
  10713. 43E72 ::
  10714. 43EA9 ::
  10715. 43EE0 :: DoUPSVIEWkeyNS
  10716. 43F03 :: DoUPSVIEWkeyRS
  10717. 43F26 ::
  10718. 43F49 ::
  10719. 43F6C :: DoUPSPICKkey
  10720. 43F85 :: DoUPSROLLkey
  10721. 43F9E :: DoUPSROLLDkey
  10722. 43FB7 :: DoUPSLEVELkey
  10723. 43FD5 :: DoUPSDUPNkey
  10724. 43FEE :: DoUPSDRPNkey
  10725. 4400C :: DoUPSKEEPkey
  10726. 4405C :: DoUPS->LISTkey
  10727. 4407A ::
  10728. 4409D :: TakeOver3GETLAM_UNCOERCE_CKNNOLASTWD
  10729. 440BB :: AtUserStackSetDA13NoCh
  10730. 440CF :: UpdateUSTACKlevel
  10731. 44110 ::
  10732. 4416A :: 4GETLAM#+
  10733. 4417E :: DEPTH4GETLAM#-
  10734. 44197 :: DEPTH#1-OVER#<_casedrpfls_PICKTRUE
  10735. 441BF ::
  10736. 441D3 ::
  10737. 441E7 ::
  10738. 44223 :: "\\>">BIGGROB
  10739. 44228 $  "\\>"
  10740. 4423E :: ":">BIGGROB
  10741. 44243 $  ":"
  10742. 44259 :: TRUE1PUTLAM
  10743. 4426D #  <15h>
  10744. 44277 :: HP:InitEd&Modes
  10745. 4428B :: HP:InitEdLine
  10746. 442A4 P
  10747. 4434F P  FillRightMargin
  10748. 44394 :: HP:InitEdModes
  10749. 443A8 ::
  10750. 443CB :: HP:EditString
  10751. 443DF :: Get2ndEditChar???
  10752. 443F3 :: GetEditChar???
  10753. 44407 P  GetNthEditChar???
  10754. 4446E ::
  10755. 44487 ::
  10756. 444A5 ::
  10757. 444C3 P  InsStk$CmdLine
  10758. 444C3 @  Insert stk1 in cmdline (1:$ w/o LF)
  10759. 444EE P  InsStkCharCmdLine
  10760. 44683 P  HP:EDITLINE$
  10761. 44711 P
  10762. 44730 P  HP:EDITPARTS
  10763. 44730 @  CMDLINELines  (command-line lines counter -> (1:Syst Bin \>= 0))
  10764. 4478A P
  10765. 4482D P
  10766. 4488A :: NOTImmedEntry?
  10767. 4489E ::
  10768. 448C1 :: HP:?TogU/LCase
  10769. 44948 ::
  10770. 4497F ::
  10771. 4499D ::
  10772. 449D9 :: MatAppKeys
  10773. 44A24 ::
  10774. 44A2E ::
  10775. 44AFB ::
  10776. 44B19 ::
  10777. 44B23 ::
  10778. 44BD2 ::
  10779. 44BDC ::
  10780. 44C31 :: NS:MatrixWriter
  10781. 44C31 @  Enter Matrix Writer with no matrix in it
  10782. 44C40 :: InitNoMatMatrixWriter.1
  10783. 44C6D :: MatrixWriter.1
  10784. 44CAE :: MatUI>Stk
  10785. 44CFE :: MatUIErrtrap
  10786. 44D35 :: SetDA12aNoCh
  10787. 44D49 ::
  10788. 44D94 :: MatAppDisplay
  10789. 44DE4 ::
  10790. 44DF8 :: DispStatusBlankDA2a
  10791. 44E0C ::
  10792. 44E5C ::
  10793. 44EA2 ::
  10794. 44EC5 :: InitNoMat
  10795. 44EF2 ::
  10796. 44F42 :: HP:BindMatVars
  10797. 44F42 @  (21 args)
  10798. 44F6A :: 2-22PUTLAMZERO1PUTLAM
  10799. 44F6A @  :: 2PUTLAM 3PUTLAM ... 22PUTLAM ZERO 1PUTLAM ;
  10800. 44FE7 :: NS:>MatrixWriter
  10801. 44Fe7 @  (1:[] -> 2:[] 1:T if <ENTER> | 1:F if <ATTN> )
  10802. 44FF6 ::
  10803. 45023 :: HP:InitOldMat
  10804. 45041 ::
  10805. 45073 :: NS:SWAPZERO
  10806. 450A5 ::
  10807. 450BE @  'centered-dot' 0xB7 (Character)
  10808. 4511A ::
  10809. 45160 ::
  10810. 45174 @  '-' 0x2D (Character)
  10811. 451BC ::
  10812. 451E4 ::
  10813. 45216 ::
  10814. 45234 ::
  10815. 4524D ::
  10816. 45261 ::
  10817. 45284 ::
  10818. 45301 :: NS:#A+
  10819. 4535B ::
  10820. 45423 ::
  10821. 45441 ::
  10822. 45469 :: NS:3DROPNULL$
  10823. 45491 ::
  10824. 454AA :: 3DROPNULL$
  10825. 454D2 ::
  10826. 45522 ::
  10827. 45554 ::
  10828. 4556D ::
  10829. 45612 ::
  10830. 45653 ::
  10831. 45676 :: HP:Blank$
  10832. 4569E ::
  10833. 4570C ::
  10834. 45716 {} ONEONE{}
  10835. 45716 @  { <1h> <1h> }
  10836. 4578E :: HARDBUFF_OCRC_SWAPDROP
  10837. 457A7 ::
  10838. 457CA ::
  10839. 457E8 ::
  10840. 45815 ::
  10841. 45833 ::
  10842. 4585B ::
  10843. 4587E ::
  10844. 45897 :: NS:#-TRUE
  10845. 458B5 ::
  10846. 45923 ::
  10847. 4596E ::
  10848. 459AA ::
  10849. 459EB ::
  10850. 459FF ::
  10851. 45A1D ::
  10852. 45A6D ::
  10853. 45A81 ::
  10854. 45A9F ::
  10855. 45AE0 :: HP:GetMat/Vec
  10856. 45AFE ::
  10857. 45B08 ::
  10858. 45B3A :: DropSysObs22GETLAM
  10859. 45B5D ::
  10860. 45B71 ::
  10861. 45BB2 ::
  10862. 45BC6 ::
  10863. 45C07 ::
  10864. 45C2F :: HP:RowElt#
  10865. 45C2F @  :: SWAP#1- 21GETLAM #* #+ ;
  10866. 45C4D ::
  10867. 45C61 :: 2DROP20&21GETLAMS#*
  10868. 45C89 :: SWAP21GETLAM
  10869. 45CB6 ::
  10870. 45CED ::
  10871. 45D1F :: HP:GetElt
  10872. 45D38 :: TWO14PUTLAM
  10873. 45D4C ::
  10874. 45D6F :: ZERO14PUTLAM
  10875. 45D83 ::
  10876. 45DBF ::
  10877. 45DDD ::
  10878. 45E14 ::
  10879. 45E2D ::
  10880. 45E6E ::
  10881. 45E8C ::
  10882. 45EA5 ::
  10883. 45ED7 ::
  10884. 45F04 ::
  10885. 45F1D :: DUP12PUTLAM#4+10PUTLAM
  10886. 45F4A :: DUP10PUTLAM#4-12PUTLAM
  10887. 45F72 ::
  10888. 45FB3 ::
  10889. 45FEA ::
  10890. 46003 :: MATWRmenu
  10891. 4600D {} MATWRmenulist
  10892. 4600D @  { MATWREDITkey MATWRVECkey <-WIDkey WID->key GO->key GOdownkey +ROWkey
  10893. 4600D @    -ROWkey +COLkey -COLkey MATWR->STKkey MATWRUPSTKkey }
  10894. 46012 {} MATWREDITkey
  10895. 46017 $  "EDIT"
  10896. 46033 {} MATWRVECkey
  10897. 46047 {} <-WIDkey
  10898. 4604C $  "<-WID"
  10899. 46068 {} WID->key
  10900. 4606D $  "WID->"
  10901. 46089 {} GO->key
  10902. 4609D {} GOdownkey
  10903. 460B1 {} +ROWkey
  10904. 460B6 $  "+ROW"
  10905. 460D2 {} -ROWkey
  10906. 460D7 $  "-ROW"
  10907. 460F3 {} +COLkey
  10908. 460F8 $  "+COL"
  10909. 46114 {} -COLkey
  10910. 46119 $  "-COL"
  10911. 46135 {} MATWR->STKkey
  10912. 4613A $  "->STK"
  10913. 46156 {} MATWRUPSTKkey
  10914. 4615B $  "upSTK"
  10915. 46181 :: DoMATRWR->STKkey
  10916. 461B8 :: GO->labelprg
  10917. 461C2 $  "GO->"
  10918. 461E6 :: GOdownlabelprg
  10919. 461F0 $  "GOdown"
  10920. 46214 :: MATWRVEClabelprg
  10921. 4621E $  "VEC"
  10922. 46242 :: DoGO->key
  10923. 4626F :: DoGOdownkey
  10924. 462A1 ::
  10925. 462BF :: ONE18PUTLAM
  10926. 462E2 ::
  10927. 46305 :: DoMATRWRVECkey
  10928. 46332 ::
  10929. 4635A :: 20&21GETLAM#*17PUTLAM
  10930. 46378 :: Do-ROWkey
  10931. 46409 :: HP:CopyRowsUp
  10932. 46481 :: Do-COLkey
  10933. 4651C :: HP:CopyColsLeft
  10934. 4659E :: Do+ROWkey
  10935. 46625 :: HP:CopyRowsDown
  10936. 466ED :: Do+COLkey
  10937. 4677E :: HP:CopyColsRght
  10938. 46855 :: TWENTYSWAP#/SWAPDROP
  10939. 46873 :: Do<-WIDkey
  10940. 468BE :: #1+INCR#11GETLAM
  10941. 468EB ::
  10942. 46945 :: DoWID->key
  10943. 46995 :: #1+INCR#13GETLAM
  10944. 469C2 ::
  10945. 469DB ::
  10946. 469F4 :: DoMATWREDITkey
  10947. 46A49 ::
  10948. 46A7B :: InitMATRWRmenu
  10949. 46A99 ::
  10950. 46AAD ::
  10951. 46AD0 ::
  10952. 46AF3 ::
  10953. 46B16 ::
  10954. 46B39 ::
  10955. 46B70 ::
  10956. 46B98 ::
  10957. 46BCF ::
  10958. 46BE3 #  <84h>
  10959. 46C10 ::
  10960. 46CBF ::
  10961. 46D19 ::
  10962. 46D3C ::
  10963. 46D87 :: ONEONETWO->20,9,8PUTLAM
  10964. 46DAF :: ONEONETWO->21,8,9PUTLAM
  10965. 46DD7 ::
  10966. 46DF0 ::
  10967. 46E2C ::
  10968. 46EB8 #  <26h>
  10969. 46EE0 ::
  10970. 46F17 ::
  10971. 46F3F ::
  10972. 46F76 ::
  10973. 47025 ::
  10974. 4703E ::
  10975. 47098 ::
  10976. 470BB ::
  10977. 4710B ::
  10978. 47129 #  <84h>
  10979. 4718D ::
  10980. 471A6 ::
  10981. 471F1 ::
  10982. 47237 ::
  10983. 47282 ::
  10984. 472C8 #  <502h>
  10985. 472D2 #  <503h>
  10986. 472DC #  <504h>
  10987. 472E6 #  <505h>
  10988. 472F0 #  <506h>
  10989. 472FA P  GETMATWRwidth
  10990. 4730A P  STOMATRWRwidth
  10991. 4731A P  GETMATGOdirection
  10992. 4731A @  (-> #) (#0 = -> ??, #1 = down??)
  10993. 4732A P  STOMATGOdirection
  10994. 4737D :: RclID?CKEQ
  10995. 4737D @  Recalls ID contents (1:ID -> 2:contents 1:True | 1:False)
  10996. 4737D @  ID_EQ is special ??? dunno what
  10997. 473A0 :: DUP@_HERE?EQCK
  10998. 473A0 @  Recalls ID contents (1:ID -> 3:ID 2:contents 1:TRUE | 2:ID 1:FALSE)
  10999. 473A0 @  ID_EQ is special ??? dunno what
  11000. 473BE ::
  11001. 47409 :: CKEQ
  11002. 47409 @  Something about EQ checking for ID_X ????????????
  11003. 4744F :: HP:'IDX
  11004. 47459 g' ID_X
  11005. 47467 :: HP:STOAPPLDATA
  11006. 47485 :: PLOT&CATReviewKey
  11007. 47494 ::
  11008. 474A3 ::
  11009. 474BC ::
  11010. 474E9 ::
  11011. 4750C ::
  11012. 47548 :: SOLVEReviewKeyprog
  11013. 47557 ::
  11014. 4757A :: ReviewCurEQ
  11015. 475A2 ::
  11016. 475B6 ::
  11017. 475D4 ::
  11018. 475FC :: SHOWPlotrInfo
  11019. 4760B :: PLOTRReviewKeyprg
  11020. 47642 ::
  11021. 4765B ::
  11022. 47660 $  "Indep:"
  11023. 476B7 ::
  11024. 476BC $  "Depnd:"
  11025. 476F0 $  "x:"
  11026. 4771C $  "y:"
  11027. 47761 ::
  11028. 47798 ::
  11029. 477B6 ::
  11030. 47801 :: SWAPDROPONENINESUB$
  11031. 478AB :: StoreNEWEQ
  11032. 478BF ::
  11033. 478F1 ::
  11034. 47900 $  ".EQ"
  11035. 47910 $  ",EQ"
  11036. 47957 :: SHOWPtypeInfo
  11037. 47975 :: NS:APPprompt1
  11038. 47975 @  If MSGOK? then APPprompt1! & valids status area, else DROP
  11039. 47984 :: HP:APPprompt1!
  11040. 47984 @  Displays $ in a 'separated' status area (1:$ ->)
  11041. 479A7 :: HP:APPprompt2
  11042. 479A7 @  If MSGK? then APPprompt2!, else 2DROP 
  11043. 479B6 :: NS:APPprompt2!
  11044. 479B6 @  Displays 2 strings in status area & valids it
  11045. 479D4 :: NS:MSGNOTOK?
  11046. 479D4 @  (->1:T/F) True if PrgmEntry?/AppMode?/ImmedEntry?/Key pressed etc..
  11047. 47A1A :: XRNG
  11048. 47A1A @  Internal XRNG (2:% 1:%)
  11049. 47A42 :: YRNG
  11050. 47A42 @  Internal YRNG (2:% 1:%)
  11051. 47A6A :: %INDEP
  11052. 47A6A @  Internal INDEP (1:%)
  11053. 47A8D :: %DEPND
  11054. 47A8D @  Internal DEPND (1:%)
  11055. 47AB0 :: DoEDEQkey
  11056. 47AE7 :: DoTIMECATkey
  11057. 47B46 :: TOADISPBlankDA1
  11058. 47B5A :: DoCATkey
  11059. 47B6E ::
  11060. 47B73 {} %{9_15}
  11061. 47BA5 :: DoSTATCATkey
  11062. 47BB9 ::
  11063. 47BBE {} %{3_15}
  11064. 47BF0 ::
  11065. 47C18 ::
  11066. 47C9A ::
  11067. 47CA4 ::
  11068. 47CDB :: DUPLEN$DUPTWENTYONE#-SWAPSUB$
  11069. 47D12 ::
  11070. 47D26 ::
  11071. 47D76 ::
  11072. 47D85 :: DUP@?SKIP_NULL$
  11073. 47E20 ::
  11074. 47E2F ::
  11075. 47E66 ::
  11076. 47E84 ::
  11077. 47F56 ::
  11078. 47F65 #  <1h>
  11079. 47F6F $  "["
  11080. 47F8F $  "x"
  11081. 47FAF $  "]"
  11082. 47FCA ::
  11083. 47FD4 $  " dir"
  11084. 47FF0 ::
  11085. 48009 $  ":"
  11086. 48024 ::
  11087. 4803D ::
  11088. 48042 $  "\|>"
  11089. 48085 ::
  11090. 480A3 ::
  11091. 4810C ::
  11092. 48148 ::
  11093. 48198 ::
  11094. 481C5 :: 2DROPONE
  11095. 481E8 ::
  11096. 4821F ::
  11097. 4823D ::
  11098. 48265 ::
  11099. 48283 ::
  11100. 48297 ::
  11101. 482AB ::
  11102. 482BF :: NS:TRUE4PUTLAM
  11103. 482D3 ::
  11104. 4830F ::
  11105. 4833C ::
  11106. 4835F ::
  11107. 48391 ::
  11108. 483BE ::
  11109. 48418 ::
  11110. 48427 ::
  11111. 48472 ::
  11112. 48481 ::
  11113. 484CC ::
  11114. 484FE :: PLOTRCATmenu
  11115. 48508 {} PLOTRCATmenulist
  11116. 48544 :: STATCATmenu
  11117. 4854E {} STATCATmenulist
  11118. 48585 :: TIMECATmenu
  11119. 4858A {} TIMECATmenulist
  11120. 485BC {} 1-VARkey
  11121. 485C1 $  "1-VAR"
  11122. 485D5 :: Do1-VARkey
  11123. 485E4 ::
  11124. 48611 ::
  11125. 48634 ::
  11126. 48652 {} STATPLOTkey
  11127. 48657 $  "PLOT"
  11128. 48669 :: DoSTATPLOTkey
  11129. 48682 ::
  11130. 486B4 {} 2-VARkey
  11131. 486B9 $  "2-VAR"
  11132. 486CD :: Do2-VARkey
  11133. 486E6 ::
  11134. 48718 {} STATEDITkey
  11135. 4871D $  "EDIT"
  11136. 4872F :: DoSTATEDITkey
  11137. 48761 {} CATSOLVERkey
  11138. 48766 $  "SOLVR"
  11139. 4877A :: DoCATSOLVERkey
  11140. 48789 ::
  11141. 487C5 {} CATPLOTRkey
  11142. 487CA $  "PLOTR"
  11143. 487DE :: DoCATPLOTRkeyprg
  11144. 4880B {} CATEQ+key
  11145. 48810 $  "EQ+"
  11146. 48820 {} CATSTATEQ+keyops
  11147. 48825 :: DoCATEQ+key
  11148. 48848 :: SAFE@_HEREDROP
  11149. 48875 :: SAFE@HERE?SEMIDUP
  11150. 4889D :: SWAPDROP&COMP
  11151. 488B1 :: DROP>TCOMP
  11152. 488C5 :: 3PUTLAMSetDA23NoCh
  11153. 488DE :: DoCATEQ+keyLS
  11154. 4891A {} CATEDITkey
  11155. 4891F $  "EDIT"
  11156. 48931 :: DoCATEDITkey
  11157. 4894A ::
  11158. 48990 {} CATPURGEkey
  11159. 48995 $  "PURGE"
  11160. 489A9 :: DoCATPURGEkey
  11161. 489E5 ::
  11162. 489FE ::
  11163. 48A2B ::
  11164. 48A71 {} CAT->STKkey
  11165. 48A76 $  "->STK"
  11166. 48A88 :: DOCAT->STKkey
  11167. 48A8D ::
  11168. 48ACE $  "undefined"
  11169. 48AF4 :: DoBadKeyRDROP
  11170. 48B3F {} CATVIEWkey
  11171. 48B44 $  "VIEW"
  11172. 48B56 :: DoCATVIEWkey
  11173. 48B65 ::
  11174. 48B83 ::
  11175. 48BD8 ::
  11176. 48C5A {} CATFASTkey
  11177. 48C5F :: CATFASTlabelprg
  11178. 48C69 $  "FAST"
  11179. 48C85 :: DoCATFASTkey
  11180. 48CB7 {} CATORDERkey
  11181. 48CBC $  "ORDER"
  11182. 48CD0 :: DoCATORDERkey
  11183. 48D0C :: 59TestSysFlag
  11184. 48D20 {} TIMECATEDITkey
  11185. 48D25 $  "EDIT"
  11186. 48D37 :: DoTIMECATEDITkey
  11187. 48D4B g' ID_ALRMDAT
  11188. 48D8D {} TIMECATPURGEkey
  11189. 48D92 $  "PURGE"
  11190. 48DA6 :: DoTIMECATPURGEkey
  11191. 48DDD {} EXEXCSkey
  11192. 48DE2 :: EXECSlabelprg
  11193. 48DEC $  "EXECS"
  11194. 48E0A :: DoEXECSkey
  11195. 48E32 ::
  11196. 48E5A :: TIMECATmenuON?
  11197. 48E78 ::
  11198. 48E96 ::
  11199. 48EA0 :: 3GETLAMDUPLENCOMP#0=
  11200. 48ECD ::
  11201. 48F04 ::
  11202. 48F3B :: 8GETLAMLENCOMP
  11203. 48F4F ::
  11204. 48F72 ::
  11205. 48FD6 :: DoPLOTRkey
  11206. 48FF9 :: HP:SORTASLOW
  11207. 48FF9 @  Do VERYSLOW 5 times
  11208. 49017 :: PLOTmenuON?
  11209. 49017 @  Is current menu PLOTmenu?
  11210. 49035 :: STATPTYPE?
  11211. 49035 @  TRUE if PTYPE = BAR | HISTOGRAM | SCATTER else FALSE
  11212. 49076 ::
  11213. 490B7 ::
  11214. 490CB :: %01REV
  11215. 490CB @  :: %0 1REV ;
  11216. 4912A ::
  11217. 49161 %  NS:%40
  11218. 49199 {} NS:8NULLLAM{}
  11219. 49199 @  { NULLLAM.... NULLLAM } (8 NULLLAMs)
  11220. 491D5 :: HP:AUTOSCALE
  11221. 491D5 @  Internal AUTO
  11222. 491E9 ::
  11223. 49220 ::
  11224. 49266 ::
  11225. 492B1 ::
  11226. 492FC ::
  11227. 49333 ::
  11228. 4936F ::
  11229. 493B0 ::
  11230. 493C4 ::
  11231. 4945F ::
  11232. 49478 ::
  11233. 4948C ::
  11234. 4949B :: NS:%1%-1
  11235. 4949B @  Push %1 and %-1
  11236. 494B4 %  HP:%.1
  11237. 494EC ::
  11238. 49523 :: NS:XYZW>ZZ
  11239. 49523 :: DROPUNROT2DROPDUP
  11240. 49569 ::
  11241. 49587 ::
  11242. 4959B :: NS:CKC%>%
  11243. 4959B @  (1:% -> 2:% 1:%0  | 1:C% -> 2:%re 1:%im)
  11244. 495BE :: 2GETLAM%POL>%REC
  11245. 495F5 :: PUTYRNG&DECMIN
  11246. 495F5 @  Orders STK1 & STK2, Puts to YRNG and lowers YMIN with 1 pixel amount
  11247. 495F5 @  (2:%eithery 1:%othery)
  11248. 49618 %  %0.15
  11249. 49641 :: DoZ-BOXkeyLS
  11250. 4965F ::
  11251. 49682 ::
  11252. 49696 ::
  11253. 496A0 #  <100h>
  11254. 496F5 ::
  11255. 49709 :: HP:PromptIdUtil
  11256. 4971D $  ": "
  11257. 4973A :: DoRESETkey
  11258. 49753 :: ERRORCLRDropSysObs'IDFUNCTION
  11259. 4978F :: DoFCNkey
  11260. 4978F @  Invoke GRAPH FCN menu
  11261. 497A8 ::
  11262. 497D0 ::
  11263. 497FD :: DoSLOPEkey
  11264. 49825 $  "Slope"
  11265. 4984D :: DoFCNROOTkey
  11266. 49870 $  "Root"
  11267. 4988C :: DoFCNAREAkey
  11268. 498B4 :: 3DROPNEWMARK
  11269. 4991D $  "Area"
  11270. 49948 :: DoISECTkey
  11271. 49970 ::
  11272. 499BB ::
  11273. 499FC $  "I-sect"
  11274. 49A1C :: DoFCNEXTRkey
  11275. 49A4E $  "Extrm"
  11276. 49A6C :: DoF(X)key
  11277. 49A8F $  "F(x)"
  11278. 49AB5 :: DoF'key
  11279. 49AD3 :: HP:PointDerivUt
  11280. 49AD3 @  :: DROP 595B0 ;
  11281. 49AE7 :: DORCLEDUPEqList?
  11282. 49B05 ::
  11283. 49B4B ::
  11284. 49B82 ::
  11285. 49BA5 :: HP:FcnUtilEnd
  11286. 49BD2 :: HP:RootUtil
  11287. 49BE1 :: 2RDROPJstGETTHEMESGDISPCOORD2
  11288. 49C0E :: SWAPDROP2RDROPGETTHEMESGDISPCOORD2
  11289. 49C54 :: HP:CkEQUtil
  11290. 49C95 ::
  11291. 49CB8 :: Called by DoFCNNXEQkey
  11292. 49CBD :: PrepNXEQ
  11293. 49CD6 :: NS:ROLL{}
  11294. 49CD6 @  ROLL lists contents (If empty SETNoEQERR)
  11295. 49CD6 @  1:{ ob1 ob2 ob3 .. obn } -> 1:{ ob2 ob3 .. obn ob1 }
  11296. 49CFE ::
  11297. 49D3A ::
  11298. 49D3F ::
  11299. 49D8A ::
  11300. 49DB2 :: dropFALSE
  11301. 49DD5 ::
  11302. 49E11 ::
  11303. 49E43 :: CRUNCHNoBlamWith234Saved
  11304. 49E43 @  ->NUM level1 (stk2,3,4 are bound to LAMs meanwhile, why????)
  11305. 49E7A ::
  11306. 49ECA ::
  11307. 49F06 :: HP:PointMoveCur
  11308. 49FBA ::
  11309. 4A000 :: DispCoord1SORTASLOW
  11310. 4A02D ::
  11311. 4A055 :: HP:DISPCOORD2
  11312. 4A055 @  Displays coords until key is pressed
  11313. 4A078 :: RECORDX&YC%>Re%
  11314. 4A078 @  :: RECORDX&YC% C>Re%
  11315. 4A08C :: ONEGETEqN
  11316. 4A08C @  Gets first equation from ID_EQ, (EQ itself if ID_EQ is not a list)
  11317. 4A0AA :: HP:GetEqN
  11318. 4A0AA @  Gets Nth (#) equation from ID_EQ
  11319. 4A0C8 ::
  11320. 4A0D7 :: NS:NULL$FALSE
  11321. 4A122 ::
  11322. 4A145 g' ID_X
  11323. 4A16C :: sigmaLINE
  11324. 4A16C @  Internal SigmaLINE
  11325. 4A194 :: MAKELINEQ
  11326. 4A194 @  (2:Ob2 1:Ob1 -> 1:'Ob2+Ob1*X'
  11327. 4A19E g' ID_X
  11328. 4A1D4 :: MAKELNEQ
  11329. 4A1D4 @  (2:Ob2 1:Ob1 -> 1:'Ob2+Ob1*LN(X)'
  11330. 4A1DE g' ID_X
  11331. 4A223 :: MAKEEXPEQ
  11332. 4A223 @  (2:Ob2 1:Ob1 -> 1:'Ob2*EXP(Ob1*X)'
  11333. 4A22D g' ID_X
  11334. 4A25E g' ID_X
  11335. 4A28F :: SolvMenuEQReviewprg
  11336. 4A28F @  Returns 'EQ' or EQ:contents (tagged) (Checks fast flag etc too)
  11337. 4A2B2 ::
  11338. 4A320 #  <605h>
  11339. 4A32A #  <606h>
  11340. 4A334 #  <607h>
  11341. 4A33E #  <608h>
  11342. 4A348 #  <609h>
  11343. 4A352 #  <60Ah>
  11344. 4A35C #  <60Bh>
  11345. 4A366 #  <60Ch>
  11346. 4A370 #  <60Dh>
  11347. 4A37A #  <60Eh>
  11348. 4A384 #  <60Fh>
  11349. 4A38E #  <610h>
  11350. 4A398 #  <611h>
  11351. 4A3A2 #  <612h>
  11352. 4A3AC #  <613h>
  11353. 4A3B6 #  <614h>
  11354. 4A3C0 #  <615h>
  11355. 4A3CA #  <616h>
  11356. 4A3D4 #  <617h>
  11357. 4A3DE #  <618h>
  11358. 4A3E8 #  <619h>
  11359. 4A3F2 #  <61Ah>
  11360. 4A3FC #  <61Bh>
  11361. 4A406 #  <61Ch>
  11362. 4A410 #  <61Dh>
  11363. 4A41A #  <61Eh>
  11364. 4A424 #  <61Fh>
  11365. 4A42E #  <620h>
  11366. 4A438 #  <621h>
  11367. 4A442 #  <622h>
  11368. 4A44C #  <633h>
  11369. 4A456 #  <624h>
  11370. 4A460 #  <628h>
  11371. 4A46A #  <629h>
  11372. 4A474 #  <62Ah>
  11373. 4A47E #  <62Bh>
  11374. 4A488 #  <62Ch>
  11375. 4A492 #  <62Dh>
  11376. 4A49C #  <62Eh>
  11377. 4A4A6 :: DoEDITsigmakey
  11378. 4A4E2 :: SHOWNoSigmaStat
  11379. 4A4F1 ::
  11380. 4A50A ::
  11381. 4A528 ::
  11382. 4A550 :: SHOWStatData
  11383. 4A555 ::
  11384. 4A5A0 $  "("
  11385. 4A5BB $  ")="
  11386. 4A605 $  ")="
  11387. 4A627 ::
  11388. 4A64A ::
  11389. 4A663 ::
  11390. 4A677 $  "Xcol:"
  11391. 4A69A $  " Ycol:"
  11392. 4A6C4 $  " Modl:"
  11393. 4A702 :: ClearSigmaDat
  11394. 4A716 ::
  11395. 4A770 :: NS:InputID
  11396. 4A770 @  Ask for ID (2:$messageline 1:$editline -> 2:ID 1:True)
  11397. 4A770 @  SETTYPEERR if wrong type gotten, if ON pressed return (-> 1:False)
  11398. 4A7CA :: FINDBESTMODEL
  11399. 4A7CA @  Finds and calcs the bestmodel (to sigmaPAR) (no args)
  11400. 4A7CF {} FITMODES{}
  11401. 4A7CF @  { LINFIT LOGFIT EXPFIT PWRFIT }
  11402. 4A842 :: DROP(2,4)
  11403. 4A842 :: NS:XYZW>YW
  11404. 4A842 :: NS:SWPDRPROTDRP
  11405. 4A874 ::
  11406. 4A94B ::
  11407. 4A95A :: HP:ICMPDRPRTDRP
  11408. 4A95A :: INCOMPDROPROTDROP
  11409. 4A982 :: %01REV
  11410. 4A982 @  :: %0 1REV ;
  11411. 4A9AF :: HP:CHECKPVARS
  11412. 4A9D7 :: CHECK3{}CDRStrings?
  11413. 4A9D7 @  Checks that LEN{} = 3, {2} and {3} are strings
  11414. 4A9D7 @  (1:{} -> 1:list element 1)
  11415. 4AA59 :: CKSTKPPARLASTID?
  11416. 4AA59 @  Checks that last entry in exploded PPAR is ID (errors if not)
  11417. 4AA68 :: CHECK3{}CDRStrings?2
  11418. 4AA68 @  The same as in address 4A9D7
  11419. 4AAA9 :: RCLSTKPPARCK
  11420. 4AAA9 @  Recalls exploded PPAR to stack (Makes one if necessary)
  11421. 4AAA9 @  Checks PPARs validity too
  11422. 4AAEA :: HP:MAKEPVARS
  11423. 4AAEA @  Creates default PPAR & pushes it ( -> StdPPAR{} )
  11424. 4AB1C g' ID_X
  11425. 4AB2A C% C%0
  11426. 4AB59 g' ID_Y
  11427. 4AB7B :: #>StdPIXRange
  11428. 4AB7B @  Returns standard ranges (Like <131d> -> -6.5 6.5 )
  11429. 4ABC1 :: NOTONE?SETPTYPEFUNC
  11430. 4ABC1 @  If stk1 is not a PTYPE, set FUCTION as PTYPE
  11431. 4AC1B :: SETPTYPEFUNC
  11432. 4AC1B @  Sets FUNCTION as PTYPE
  11433. 4AC34 :: GETCENTR
  11434. 4AC61 :: C%CENTR
  11435. 4AC61 @  Internal CENTR (1:C%)
  11436. 4ADB0 :: HN:GETSCALE
  11437. 4AE3C :: SCALE
  11438. 4AE3C @  Internal SCALE (2:% 1:%)
  11439. 4AF4F :: #2/UNCOERCE%%
  11440. 4AF63 :: HP:GETINDEP
  11441. 4AF77 :: HP:PUTINDEP
  11442. 4AF77 @  Internal INDEP (1:ID)
  11443. 4AF8B :: HP:PUTINDEPLIST
  11444. 4AF8B @  Internal INDEP (1:{})
  11445. 4AF9F :: GETDEPND
  11446. 4AFB3 :: PUTDEPND
  11447. 4AFB3 @  Internal DEPND (1:ID)
  11448. 4AFC7 :: PUTDEPNDLIST
  11449. 4AFC7 @  Internal DEPND (1:{})
  11450. 4AFDB :: HP:GETRES
  11451. 4AFEF :: %RES
  11452. 4AFEF @  Internal RES (1:%)
  11453. 4B012 :: HP:PUTRES
  11454. 4B012 @  Internal RES (1:positive % / HXS)
  11455. 4B026 :: GETAXES
  11456. 4B03A :: C%AXES
  11457. 4B03A @  Internal AXES (1:C%)
  11458. 4B04E :: {}AXES
  11459. 4B04E @  Internal AXES (1:{})
  11460. 4B062 :: HP:GETPTYPE
  11461. 4B062 @  Get PLOT type (-> 1:Type)
  11462. 4B076 :: HP:PUTPTYPE
  11463. 4B076 @  Stores PLOT type (1:Type)
  11464. 4B08A :: GETPMIN
  11465. 4B09E :: PMIN
  11466. 4B09E @  Internal PMIN (1:C%)
  11467. 4B0B2 :: GETPMAX
  11468. 4B0C6 :: PMAX
  11469. 4B0C6 @  Internal PMAX (1:C%)
  11470. 4B0DA :: HP:GETPMIN&MAX
  11471. 4B10C :: HP:GETXMIN
  11472. 4B120 :: HP:GETYMIN
  11473. 4B139 :: HP:GETXMAX
  11474. 4B14D :: HP:GETYMAX
  11475. 4B166 :: HP:PUTXMIN
  11476. 4B189 :: HP:PUTYMIN
  11477. 4B1AC :: HP:PUTXMAX
  11478. 4B1CF :: HP:PUTYMAX
  11479. 4B1F2 :: PICTSIZE
  11480. 4B1F2 @  (-> 2:HXS_xsize 1:HXS_ysize)
  11481. 4B206 :: C%PDIM
  11482. 4B206 @  Internal PDIM (2:C% 1:C%)
  11483. 4B2D3 :: SWAPC%->%%SWAP
  11484. 4B2D3 @  (2:(re2,im2) 1:(re1,im1) -> 2:%%(im1-im2) 1:%%(re1-re)
  11485. 4B300 :: HXSPDIM
  11486. 4B300 @  Internal PDIM (2:HXS,1:HXS)
  11487. 4B323 :: HP:MAKEPICT#
  11488. 4B323 @  Internal PDIM (2:#,1:#)
  11489. 4B32D #  <800h>
  11490. 4B364 :: CK&GETPPARN
  11491. 4B364 @  Checks PPAR validity, then gets Nth item (1:#n -> 1:Ob)
  11492. 4B37D ::
  11493. 4B3BE :: 3DUPTYPESC$$?
  11494. 4B3BE @  (3:Ob3 2:Ob2 1:Ob1->..3:TYPESTR?(Ob1) 2:TYPESTR?(Ob2) 1:TYPECMP?(Ob3)
  11495. 4B3E1 :: 3DUPTYPESIDRR?
  11496. 4B3E1 @  (3:Ob3 2:Ob2 1:Ob1->..3:TYPEID?(Ob1) 2:TYPEREAL?(Ob2) 1:TYPEREAL?(Ob3)
  11497. 4B41D ::
  11498. 4B44F :: DROP2ndOB{}
  11499. 4B44F :: INCOMPDROPROTDROPTHREE{}
  11500. 4B44F @  (1:{ Ob1 Ob2 Ob3 Ob4 } -> 1:{ Ob1 Ob3 Ob4 } )
  11501. 4B47C ::
  11502. 4B490 :: 2DUPTYPES$$?
  11503. 4B490 @  (2:Ob2 1:Ob1 -> 4:Ob2 3:Ob1 2:TYPESTR?(Ob1) 1:TYPESTR?(Ob2) )
  11504. 4B4A9 :: 2DUPTYPESRR?
  11505. 4B490 @  (2:Ob2 1:Ob1 -> 4:Ob2 3:Ob1 2:TYPEREAL?(Ob1) 1:TYPESTR?(Ob2) )
  11506. 4B4EA ::
  11507. 4B508 ::
  11508. 4B51C :: NS:ORDER%
  11509. 4B51C @  (2:%2 1:%1 -> 2:MIN(%2,%1) 1:MAX(%2,%1)
  11510. 4B553 :: HP:VSCALE
  11511. 4B553 @  Internal *H (1:%)
  11512. 4B5AD :: HP:HSCALE
  11513. 4B5AD @  Internal *W (1:%) (Funny how HP names their internals)
  11514. 4B60C :: HP:DOERASE
  11515. 4B60C @  Internal ERASE
  11516. 4B62F ::
  11517. 4B67A ::
  11518. 4B6AC :: DRAW
  11519. 4B6AC @  Internal DRAW
  11520. 4B6D9 :: HP:PLOTERR
  11521. 4B710 :: HP:RESETDEPTH
  11522. 4B733 ::
  11523. 4B765 :: HP:PLOTPREP
  11524. 4B774 ::
  11525. 4B7D8 :: HP:GetRes
  11526. 4B7EC ::
  11527. 4B800 :: %0GetRes
  11528. 4B855 ::
  11529. 4B88D :: 16&15GETLAM%-%13/
  11530. 4B8C9 :: 16&15GETLAM%-%130/
  11531. 4B90A ::
  11532. 4B941 :: @DROP
  11533. 4B941 @  :: @ DROP ;
  11534. 4B955 ::
  11535. 4BA22 ::
  11536. 4BA36 ::
  11537. 4BACC ::
  11538. 4BAE0 ::
  11539. 4BB17 ::
  11540. 4BB30 ::
  11541. 4BBC1 ::
  11542. 4BBE4 ::
  11543. 4BC02 ::
  11544. 4BC5C ::
  11545. 4BC89 ::
  11546. 4BD4C ::
  11547. 4BD7E ::
  11548. 4BD9C ::
  11549. 4BDDD ::
  11550. 4BE23 :: NS:Attn?ExitAtLp
  11551. 4BE23 @  If Attn is pressed, ExitAtLOOP (ZEROISTOPSTO)
  11552. 4BE3C ::
  11553. 4BE6E ::
  11554. 4BEE1 ::
  11555. 4BF13 ::
  11556. 4BF45 ::
  11557. 4BF77 ::
  11558. 4BFAE :: HP:NEXTSTEP
  11559. 4BFD6 ::
  11560. 4C003 ::
  11561. 4C01C ::
  11562. 4C02B :: MINREAL
  11563. 4C02B @  Calculates 10 499 %CHS %^
  11564. 4C035 %  %499
  11565. 4C068 %  %499
  11566. 4C09B P  HP:NEWINDEP
  11567. 4C0D4 P 
  11568. 4C0E4 ::
  11569. 4C0FD :: GETYMIN&MAX
  11570. 4C0FD @  Fetches YMIN and YMAX from PPAR (2:%ymin 1:%ymax)
  11571. 4C161 ::
  11572. 4C1A7 ::
  11573. 4C1E3 ::
  11574. 4C20B ::
  11575. 4C233 ::
  11576. 4C256 ::
  11577. 4C27E ::
  11578. 4C2AB ::
  11579. 4C2D8 ::
  11580. 4C2F1 ::
  11581. 4C30A ::
  11582. 4C323 ::
  11583. 4C33C ::
  11584. 4C355 ::
  11585. 4C36E ::
  11586. 4C391 ::
  11587. 4C3C3 ::
  11588. 4C3E1 :: C%>%0=
  11589. 4C3E1 @  (1:C% -> 2:%re 1:%im=0? (True/False) )
  11590. 4C413 ::
  11591. 4C42C ::
  11592. 4C445 ::
  11593. 4C481 ::
  11594. 4C49A ::
  11595. 4C4B3 ::
  11596. 4C4EA ::
  11597. 4C50D ::
  11598. 4C530 ::
  11599. 4C55D ::
  11600. 4C580 ::
  11601. 4C5D5 ::
  11602. 4C5E4 :: 7&8PUTLAM
  11603. 4C5E4 @  :: 8PUTLAM 7PUTLAM ;
  11604. 4C607 :: DRAX
  11605. 4C607 @  Internal DRAX
  11606. 4C639 :: HP:drax
  11607. 4C64D ::
  11608. 4C6CF ::
  11609. 4C73D ::
  11610. 4C77E ::
  11611. 4C7D8 ::
  11612. 4C828 ::
  11613. 4C86E P
  11614. 4C881 ::
  11615. 4C8F4 :: %BINS
  11616. 4C8F4 @  Internal BINS (3:% 2:% 1:%)
  11617. 4C908 #  <FFFFDh>
  11618. 4C93F {} LAM{'xmax'N}
  11619. 4C93F @  { LAM_'xmax LAM_'N }
  11620. 4C944 l' LAM_'xmax
  11621. 4C955 l' LAM_'N
  11622. 4C9B0 ::
  11623. 4C9D8 ::
  11624. 4CA0F :: ROTDROPONEONE2SWAP
  11625. 4CA0F @  (3:Ob3 2:Ob2 1:Ob1 -> 4:#1 3:#1 2:Ob2 1:Ob1)
  11626. 4CA82 ::
  11627. 4CA9B :: NS:3DROP1GETLAM
  11628. 4CAD7 ::
  11629. 4CAFA :: 2DROPZERO
  11630. 4CB6D ::
  11631. 4CBA9 ::
  11632. 4CBDB ::
  11633. 4CCB2 :: SWAPDROP5GETLAM%%>%COERCESWAP
  11634. 4CCDF :: 8PICK%*COERCE9PICK#+
  11635. 4CD2A :: #1-4ROLL#1+4UNROLL
  11636. 4CD2A @  (4:#n 3:Any3 2:Any2 1:#m -> 4:#n+1 3:Any3 2:Any2 1:#m-1)
  11637. 4CD6B ::
  11638. 4CD93 :: 6DROPExitAtLOOP
  11639. 4CDD9 :: 4ROLLDROPOVER5PICK#-4UNROLL
  11640. 4CDD9 @  (5:#m 4:Ob4 3:Ob3 2:#n 1:Ob1 -> 5:#m 4:#n-#m 3:Ob3 2:Ob2 1:Ob1)
  11641. 4CE10 :: UNROT2DROP4PICK#-
  11642. 4CE10 @  (6:#m 5:Ob5 4:Ob4 3:Ob3 2:Ob2 1:#n -> 4:#m 3:Ob5 2:Ob4 1:#n-#m)
  11643. 4CE4C :: HP:EXITFCNsto
  11644. 4CE6F ::
  11645. 4CE83 ::
  11646. 4CEBA ::
  11647. 4CEE7 :: HP:GraphicExit
  11648. 4CF05 :: HP:GDISPCENTER
  11649. 4CF41 :: HP:SETLOOPENV
  11650. 4CF50 {}
  11651. 4CF55 l' LAM_'EnvOK
  11652. 4CF68 l' HP:ExitFcn
  11653. 4CF68 l' LAM_'EXITFCN
  11654. 4CF8E ::
  11655. 4CFA2 ::
  11656. 4CFD9 ::
  11657. 4D01F ::
  11658. 4D056 ::
  11659. 4D08D ::
  11660. 4D0E7 ::
  11661. 4D0FB ::
  11662. 4D11E :: HP:DROPDEADTRUE
  11663. 4D132 :: HP:SCROLLUP
  11664. 4D150 :: HP:SCROLLLEFT
  11665. 4D16E :: HP:SCROLLDOWN
  11666. 4D18C :: HP:SCROLLRIGHT
  11667. 4D1AA :: GRAPH
  11668. 4D1AA @  Internal GRAPH
  11669. 4D1C3 ::
  11670. 4D1E6 ::
  11671. 4D209 #  <41h>
  11672. 4D2EA ::
  11673. 4D308 ::
  11674. 4D30D l' LAM_'EnvOK
  11675. 4D34D ::
  11676. 4D352 l' LAM_'EnvOK
  11677. 4D36F l' LAM_'EnvOK
  11678. 4D39B ::
  11679. 4D3C3 ::
  11680. 4D3FA ::
  11681. 4D422 ::
  11682. 4D436 ::
  11683. 4D459 ::
  11684. 4D47C ::
  11685. 4D4BD ::
  11686. 4D4DB ::
  11687. 4D4F4 ::
  11688. 4D508 ::
  11689. 4D52B ::
  11690. 4D54E ::
  11691. 4D58F ::
  11692. 4D5B7 ::
  11693. 4D5CB ::
  11694. 4D5EE ::
  11695. 4D611 ::
  11696. 4D652 ::
  11697. 4D67A ::
  11698. 4D68E ::
  11699. 4D6B1 ::
  11700. 4D6D4 ::
  11701. 4D715 ::
  11702. 4D724 ::
  11703. 4D747 ::
  11704. 4D774 ::
  11705. 4D79C ::
  11706. 4D814 ::
  11707. 4D846 ::
  11708. 4D896 ::
  11709. 4D8D7 ::
  11710. 4D8EB ::
  11711. 4D8F5 ::
  11712. 4D913 ::
  11713. 4D94A ::
  11714. 4D981 ::
  11715. 4D9B8 ::
  11716. 4D9EF ::
  11717. 4DA0D :: HP:CROSS_HAIRS
  11718. 4DA30 ::
  11719. 4DA76 :: HP:CROSS_OFF
  11720. 4DA94 ::
  11721. 4DAB2 :: Do+/-key
  11722. 4DAC6 ::
  11723. 4DB11 :: 2nd arg to Box/StdLbl: in +/-labelprg
  11724. 4DB25 ::
  11725. 4DB4D ::
  11726. 4DB75 ::
  11727. 4DB93 ::
  11728. 4DBAC ::
  11729. 4DBED ::
  11730. 4DC38 ::
  11731. 4DC88 ::
  11732. 4DC9C ::
  11733. 4DCC4 ::
  11734. 4DCDD ::
  11735. 4DCF1 ::
  11736. 4DD05 ::
  11737. 4DD19 ::
  11738. 4DD46 ::
  11739. 4DD5F ::
  11740. 4DD73 ::
  11741. 4DD87 ::
  11742. 4DD9B ::
  11743. 4DDC3 ::
  11744. 4DDDC ::
  11745. 4DDF0 ::
  11746. 4DE04 ::
  11747. 4DE18 ::
  11748. 4DE45 ::
  11749. 4DE5E ::
  11750. 4DE72 ::
  11751. 4DE86 ::
  11752. 4DE9A :: 2nd arg to Box/StdLbl: in DOT+labelprg
  11753. 4DEAE :: 2nd arg to Box/StdLbl: in DOT-labelprg
  11754. 4DEC2 :: DoDOT+key
  11755. 4DEDB ::
  11756. 4DF03 :: DoDOT-key
  11757. 4DF1C ::
  11758. 4DF44 ::
  11759. 4DF53 ::
  11760. 4DF71 ::
  11761. 4DF8A ::
  11762. 4DFD0 P
  11763. 4E065 ::
  11764. 4E0B0 ::
  11765. 4E0D8 P
  11766. 4E12A P
  11767. 4E266 :: HP:CHECKMENU
  11768. 4E27A ::
  11769. 4E2AC :: HP:MENUOFF
  11770. 4E2CF :: HP:TURNMENUOFF
  11771. 4E2CF @  Turn menu display off, enlarges text grob to fill it
  11772. 4E310 ::
  11773. 4E333 #  <3Fh>
  11774. 4E347 :: HP:TURNMENUON
  11775. 4E347 @  Turn menu display on, makes text grob smaller
  11776. 4E34C #  <37h>
  11777. 4E360 :: HP:MENUOFF?
  11778. 4E36A #  <37h>
  11779. 4E37E P
  11780. 4E3CA :: DoMARKkey
  11781. 4E3E3 ::
  11782. 4E3FC ::
  11783. 4E442 :: HP:CURRENTMARK?
  11784. 4E46A :: HP:EQCURSOR?
  11785. 4E497 :: HP:PREMARKON
  11786. 4E4B0 :: HP:NEWMARK
  11787. 4E519 ::
  11788. 4E55A :: DoGRAPHBOXkey
  11789. 4E582 :: HP:DRAWBOX#
  11790. 4E5E6 :: DoGRAPHCIRCLEkey
  11791. 4E631 :: DoGRAPHLINEkey
  11792. 4E663 :: DoGRAPHTLINEkey
  11793. 4E68B :: DoCOORDkey
  11794. 4E6AE ::
  11795. 4E6CC ::
  11796. 4E6E5 ::
  11797. 4E6EF :: HP:DispCoord1
  11798. 4E712 ::
  11799. 4E753 :: DoGRAPHCENTRkey
  11800. 4E776 :: DoZ-BOXkey
  11801. 4E776 :: HP:Z-BOX
  11802. 4E7D5 ::
  11803. 4E80C ::
  11804. 4E857 :: DoGRAPHLABELkey
  11805. 4E875 :: LABEL
  11806. 4E875 @  Internal LABEL
  11807. 4E889 ::
  11808. 4E8A2 ::
  11809. 4E8CA ::
  11810. 4E906 ::
  11811. 4E997 ::
  11812. 4E9F1 ::
  11813. 4EA28 ::
  11814. 4EA5A ::
  11815. 4EA82 ::
  11816. 4EADC ::
  11817. 4EB1D ::
  11818. 4EB36 ::
  11819. 4EB7C ::
  11820. 4EB9A ::
  11821. 4EBE5 ::
  11822. 4EC21 ::
  11823. 4EC58 ::
  11824. 4EC6C ::
  11825. 4ECAD :: HP:CROSSMARKON
  11826. 4ECBC ::
  11827. 4ECE4 :: DoGRAPHREPLkey
  11828. 4ECF8 ::
  11829. 4ECFD #  <201h>
  11830. 4ED20 ::
  11831. 4ED25 #  <202h>
  11832. 4ED70 :: DoGRAPHSUBkey
  11833. 4EDB6 :: DoGRAPHDELkey
  11834. 4EDCA ::
  11835. 4EDFC ::
  11836. 4EE1A :: DoZOOMkey
  11837. 4EE1A @  Invoke GRAPH ZOOM menu
  11838. 4EE3D ::
  11839. 4EE3D @  GRAPH ZOOM menu list
  11840. 4EE47 {}
  11841. 4EE4C {}
  11842. 4EE51 $  "XAUTO"
  11843. 4EE65 ::
  11844. 4EE8D {}
  11845. 4EE92 $  "X"
  11846. 4EE9E ::
  11847. 4EEC1 {}
  11848. 4EEC6 $  "Y"
  11849. 4EED2 ::
  11850. 4EEF5 {}
  11851. 4EEFA $  "XY"
  11852. 4EF08 ::
  11853. 4EF49 ::
  11854. 4EFAD ::
  11855. 4F011 :: C%PVIEW
  11856. 4F011 @  Internal PVIEW (1:C%)
  11857. 4F02F :: {}PVIEW
  11858. 4F02F @  Internal PVIEW (1:List)
  11859. 4F052 :: HP:WINDOW#
  11860. 4F0AC :: PX>C
  11861. 4F0AC @  Internal PX->C (1:{})
  11862. 4F0DE ::
  11863. 4F110 ::
  11864. 4F179 :: C>PX
  11865. 4F179 @  Internal C->PX (1:C%)
  11866. 4F1A1 ::
  11867. 4F1D8 :: HP:SWAPTRUE
  11868. 4F1EC ::
  11869. 4F20F ::
  11870. 4F241 ::
  11871. 4F264 ::
  11872. 4F287 ::
  11873. 4F29B ::
  11874. 4F2CD ::
  11875. 4F2CD @  (6:#x2 5:#y2 4:(xmin,ymin) 3:(xmax,ymax) 2:#x 1:#y ->
  11876. 4F2CD @  6:x2 5:y2 4:(x-1)/dx 3:-xmin*(x-1)/dx 2:(y-1)/dy 1:ymax*(y-1)/dy
  11877. 4F37C :: PICTSTO
  11878. 4F37C @  Internal STO (2:Grob 1:PICT)
  11879. 4F390 #  <800h>
  11880. 4F3D1 :: NS:2HXS>#
  11881. 4F3D1 @  Convert level 1 and 2 HXSs to #
  11882. 4F3EF :: C%PIXON
  11883. 4F3EF @  Internal PIXON (1:C%)
  11884. 4F408 ::
  11885. 4F458 :: {}PIXON
  11886. 4F458 @  Internal PIXON (1:List)
  11887. 4F471 :: C%PIXOFF
  11888. 4F471 @  Internal PIXOFF (1:C%)
  11889. 4F48A :: {}PIXOFF
  11890. 4F48A @  Internal PIXOFF (1:List)
  11891. 4F4A3 :: C%PIX?
  11892. 4F4A3 @  Internal PIX? (1:C%)
  11893. 4F4BC :: {}PIX?
  11894. 4F4BC @  Internal PIX? (1:List)
  11895. 4F4CB ::
  11896. 4F4D0 #  NS:##80000
  11897. 4F525 :: {}LINE
  11898. 4F525 @  Internal LINE (2:List,1:List)
  11899. 4F539 :: {}TLINE
  11900. 4F539 @  Internal TLINE (2:List,1:List)
  11901. 4F54D ::
  11902. 4F584 :: C%LINE
  11903. 4F584 @  Internal LINE (2:C%,1:C%)
  11904. 4F598 :: C%TLINE
  11905. 4F598 @  Internal TLINE (2:C%,1:C%)
  11906. 4F5AC ::
  11907. 4F5D9 ::
  11908. 4F665 :: {}BOX
  11909. 4F665 @  Internal BOX (2:List,1:List)
  11910. 4F688 :: C%BOX
  11911. 4F688 @  Internal BOX (2:C%,1:C%)
  11912. 4F6A1 :: BLANK
  11913. 4F6A1 @  Internal BLANK (2:HXS,1:HXS)
  11914. 4F6BA :: {}G(X)OR
  11915. 4F6BA @  Internal GOR/GXOR (4:Graphic,3:List,2:Graphic,1:True/False)
  11916. 4F6DD ::
  11917. 4F6F6 :: C%G(X)OR
  11918. 4F6F6 @  Internal GOR/GXOR (4:Graphic,3:C%,2:Graphic,1:True/False)
  11919. 4F719 ::
  11920. 4F741 :: PICTG(X)OR
  11921. 4F741 @  Internal GOR/GXOR (4:PICT,3:C%/List,2:Graphic,1:True/False)
  11922. 4F769 ::
  11923. 4F78C :: HP:GROB+#
  11924. 4F7E6 :: HP:CKGROBFITS
  11925. 4F822 ::
  11926. 4F840 ::
  11927. 4F863 ::
  11928. 4F886 ::
  11929. 4F8D1 :: GROB+
  11930. 4F8D1 @  Internal + (2:Grob 1:Grob -> 1:Grob)
  11931. 4F91C ::
  11932. 4F949 ::
  11933. 4F999 :: {}GROBREPL
  11934. 4F999 @  Internal REPL (3:Grob 2:{} 1:Grob -> 1:Grob)
  11935. 4F9B2 ::
  11936. 4F9CB ::
  11937. 4F9F3 :: C%GROBREPL
  11938. 4F9F3 @  Internal REPL (3:Grob 2:C% 1:Grob -> 1:Grob)
  11939. 4FA0C ::
  11940. 4FA2F :: PICTREPL
  11941. 4FA2F @  Internal REPL (3:PICT 2:{}/C% 1:Grob ->)
  11942. 4FA57 ::
  11943. 4FA7A :: {}REPL
  11944. 4FA7A @  Internal REPL (3:{} 2:% 1:{} -> 1:{})
  11945. 4FAF7 :: %REPL$
  11946. 4FAF7 @  Internal REPL (3:$ 2:% 1:$ -> 1:$)
  11947. 4FB74 :: {}GROBSUB
  11948. 4FB74 @  Internal SUB (3:Grob 2:{} 1:{} -> 1:Grob)
  11949. 4FB92 ::
  11950. 4FBC4 :: C%GROBSUB
  11951. 4FBC4 @  Internal SUB (3:Grob 2:C% 1:C% -> 1:Grob)
  11952. 4FBF6 :: PICTSUB
  11953. 4FBF6 @  Internal SUB (3:PICT 2:C% 1:C% / 2:{} 1:{} ->)
  11954. 4FC28 :: GROBNEG
  11955. 4FC28 @  Internal NEG (1:Grob -> 1:Grob)
  11956. 4FC3C :: PICTNEG
  11957. 4FC3C @  Internal NEG (1:PICT ->)
  11958. 4FC5F :: C%ARC
  11959. 4FC5F @  Internal ARC (4:C% 3:% 2:% 1:%)
  11960. 4FD2C :: {}ARC
  11961. 4FD2C @  Internal ARC (4:{} 3:HXS 2:% 1:%)
  11962. 4FD72 ::
  11963. 4FDCC ::
  11964. 4FE08 ::
  11965. 4FE12 :: 0C%RND>%
  11966. 4FE12 @  Rounds complex number (0 RND) and does C%>% (1:C% -> 2:%re 1:%im)
  11967. 4FE30 ::
  11968. 4FE6C ::
  11969. 4FE71 {}
  11970. 4FE76 :: 9GETLAM%=SWAP6GETLAM%>=
  11971. 4FE99 :: 5GETLAM%>=SWAP10GETLAM%=
  11972. 4FEBC :: 9GETLAM%=SWAP6GETLAM%<
  11973. 4FEDF :: 5GETLAM%<SWAP10GETLAM%=
  11974. 4FF43 :: SWAPDROP%0>ITE_#2_#4
  11975. 4FF66 :: DROP%0>ITE_#1_#3
  11976. 4FF98 {} LAM{'xe'ye'x'y'xc'yc'r2'left'up'exit}
  11977. 4FF9D l' LAM_'xe
  11978. 4FFAA l' LAM_'ye
  11979. 4FFB7 l' LAM_'x
  11980. 4FFC2 l' LAM_'y
  11981. 4FFCD l' LAM_'xc
  11982. 4FFDA l' LAM_'yc
  11983. 4FFE7 l' LAM_'r2
  11984. 4FFF4 l' LAM_'left
  11985. 50005 l' LAM_'up
  11986. 50012 l' LAM_'exit
  11987. 5007D ::
  11988. 50154 :: DROP6&5&1
  11989. 50154 @  Drop levels 6,5,1 (6:Ob6 5:Ob5...1:Ob1 -> 3:Ob4 2:Ob3 1:Ob2 )
  11990. 501DB ::
  11991. 50235 :: 9GETLAM%=SWAP10GETLAM%=
  11992. 50262 :: HP:%1+
  11993. 50276 :: HP:%1-
  11994. 5028A ::
  11995. 502A3 :: 7&5GETLAM%>
  11996. 502BC :: 8&6GETLAM%>
  11997. 502F3 :: 5&7GETLAM%>
  11998. 50316 :: NS:#+#<
  11999. 5032A :: DUP2%SQUARES(stk1-5LAM,stk2-6LAM)
  12000. 5032A @  (2:%2 1:%1 -> 3:%2 2:%1 1:(%1-5GETLAM)^2+(%2-6GETLAM)^2
  12001. 5036B ::
  12002. 503B1 :: NS:%-ABS
  12003. 503B1 @  Substract smaller from bigger (2:% 1:% -> 1:ABS(stk2-stk1) )
  12004. 503C5 :: TEXT
  12005. 503C5 @  Internal TEXT
  12006. 503D4 :: HP:DOLCD>
  12007. 503D4 @  Internal LCD->
  12008. 503F7 #  <38h>
  12009. 50424 #  <38h>
  12010. 50438 :: HP:DO>LCD
  12011. 50438 @  Internal ->LCD (1:Graphic)
  12012. 5046A :: HP:DOCLLCD
  12013. 5046A @  Internal CLLCD
  12014. 5048D :: NS:DO>GROB
  12015. 5048D @  Internal ->GROB (2:Any 1:%)
  12016. 504B0 ::
  12017. 5050A ::
  12018. 5053C gr HP:CROSSGROB
  12019. 5053C @  graphics cursor (Graphic 5 x 5)
  12020. 5055A gr HP:MARKGROB
  12021. 5055A @  graphics mark (Graphic 5 x 5)
  12022. 50578 P  HP:GROBDIM
  12023. 50578 @  get GROB dimensions -> (2:Rows,1:Columns)
  12024. 505B2 gr NS:NULLGROB
  12025. 505B2 @  Graphic template (Graphic 0 x 0)
  12026. 505C6 :: HP:GETXPOS
  12027. 505E4 P  HP:getxpos
  12028. 5068D :: HP:GETYPOS
  12029. 506AB P  HP:getypos
  12030. 506C2 P
  12031. 50701 P
  12032. 5072B :: HP:TOGGLELINE#3
  12033. 50758 :: HP:DRAWLINE#3
  12034. 50785 P
  12035. 508E2 ::
  12036. 50923 :: XYZW>WZYXTrue
  12037. 50923 :: NS:REVERSE4TRUE
  12038. 50923 @  (4:Ob4 3:Ob3 2:Ob2 1:Ob1 -> 5:Ob1 4:Ob2 3:Ob3 2:Ob4 1:TRUE)
  12039. 509E1 ::
  12040. 50A3B :: NS:UNROT2DROP%0
  12041. 50A3B :: DROP2&3%0
  12042. 50A3B @  (3:Ob3 2:Ob2 1:Ob1 -> 2:Ob1 1:%0)
  12043. 50A63 :: XYZW>WZYX
  12044. 50A63 :: NS:REVERSE4
  12045. 50A63 @  (4:Ob4 3:Ob3 2:Ob2 1:Ob1 -> 4:Ob1 3:Ob2 2:Ob3 1:Ob4 )
  12046. 50ACC P  HP:LINEOFF3
  12047. 50ADB P  HP:TOGLINE3
  12048. 50AEA P  HP:LINEON3
  12049. 50AF9 P  HP:TOGLINE
  12050. 50B08 P  HP:LINEOFF
  12051. 50B17 P  HP:LINEON
  12052. 50D02 :: GetEq(INDEX+1)
  12053. 50D02 @  Get INDEX@+1th item from EQ list (errors if not there) ( -> 1:Ob)
  12054. 50D25 ::
  12055. 50D39 {} LAM{'PlotEnv}
  12056. 50D3E l' LAM_'PlotEnv
  12057. 50D78 :: HP:LASTPT?
  12058. 50D78 @  :: 15GETLAM 16GETLAM %< NOTcase TRUE ATTNFLG@ #0<> ;
  12059. 50DA5 :: HP:PlotOneMore?
  12060. 50DA5 @  :: ATTNFLG@ #0= 15GETLAM 16GETLAM %= AND ;
  12061. 50DCD :: STATPTYPE?
  12062. 50DCD @  Push True If PTYPE = SCATTER | HISTOGRAM | BAR, else False
  12063. 50E04 ::
  12064. 50E45 #  <104h>
  12065. 50E4F #  <602h>
  12066. 50E59 P  HP:!#1+IF<dim-1
  12067. 50EA5 P  HP:!#1-IF>0
  12068. 50EB9 P
  12069. 50F42 ::
  12070. 50F60 :: NS:dropDrpFls
  12071. 50F88 ::
  12072. 50FB0 :: SWAP#3=ITE_'ID_X_'ID_Y
  12073. 50FC4 :: 'ID_X
  12074. 50FCE g' ID_X
  12075. 50FDC :: 'ID_Y
  12076. 50FE6 g' ID_Y
  12077. 51003 ::
  12078. 5102B :: :16GETLAM:
  12079. 5102B @  :: 16GETLAM ;
  12080. 5103A :: PUTPPAR!N
  12081. 5103A @  Put item to Nth place from end of PPAR (2:Ob 1:#n)
  12082. 51067 :: STKMAKEPPAR
  12083. 51067 @  Makes PPAR from stack contents
  12084. 51085 :: ?SETPPARERR
  12085. 51085 @  If False do SETPPARERR
  12086. 51099 :: DEPNDVAR
  12087. 51099 @  Gets DEPND var, takes 1st element if list
  12088. 510AD :: HP:INDEPVAR
  12089. 510AD @  Gets DEPND var, takes 1st element if list
  12090. 510C1 :: NS:CKCARCOMP
  12091. 510C1 @  If stk1 is list, CARCOMP, else nothing
  12092. 510D5 :: HP:RECORDX&YC%
  12093. 51125 :: HP:CLEARMENU
  12094. 51125 @  Stores blank grob over HARDBUFF2 (menugrob) (no args)
  12095. 51148 :: NOTPICT?ERR
  12096. 51148 @  validate pop stk1 is PICT (Bad Argument Type)
  12097. 51166 :: HP:CHECKPICT
  12098. 51166 @  If PICT dims = 0 store BLANK (131 x 64) in PICT
  12099. 51166 @  If dims over (131 or 64) (broaden heighten) PICT
  12100. 51184 :: 3DROPBLANKStdGDISP
  12101. 51184 @  3DROP and STORE BLANK (131 x 64) in graph grob (3:Any 2:Any 1:Any)
  12102. 511B6 :: BROADENGROBX
  12103. 511B6 @  Broadens GDISP or ABUFF (3:ABUFF or GDISP 2:nomeaning 1:#x)
  12104. 511B6 @  Make sure #x is > <131d> before calling
  12105. 511E3 :: HEIGHTENGROBY
  12106. 511E3 @  (2:PICT or TEXTGROB 1:#y) Adds rows to GROB if #y > #40
  12107. 5120B :: GBUFFStdSIZEMIN
  12108. 5120B @  Gives GBUFF dims, makes them atleast Standard sized (131 x 64)
  12109. 5121F :: StdSIZEMIN
  12110. 5121F @  (2:#ysize 1:#xsize -> 2:MAX(#ysize,YHI) 1:MAX(#xsize,XHI) )
  12111. 51238 :: NS:DROPXHI
  12112. 51238 :: DROP#83
  12113. 51260 :: NS:DROPYHI
  12114. 51260 :: DROP#40
  12115. 5127E :: 'ID_PPAR
  12116. 51288 g' ID_PPAR
  12117. 5129C :: HP:'IDFUNCTION
  12118. 512B0 :: 'IDCONIC
  12119. 512C4 :: HP:'IDPOLAR
  12120. 512D8 :: HP:'IDPARAMETER
  12121. 512EC :: 'IDTRUTH
  12122. 51300 :: 'IDSCATTER
  12123. 51314 :: 'IDHISTOGRAM
  12124. 51328 :: 'IDBAR
  12125. 5133C :: HP:PtoR
  12126. 5135F ::
  12127. 51373 ::
  12128. 5137D #  <100h>
  12129. 513DC :: NS:REPLs1w1
  12130. 513DC @  Replaces s1 with 1 in algebraic and makes a program of it
  12131. 513DC @  (1:ALG -> 1: ALG:: | 2:ALG 1:#0 if not found)
  12132. 51404 :: NS:REPLs1w-1
  12133. 51404 @  Replaces s1 with -1 in algebraic and makes a program of it
  12134. 51404 @  (1:ALG -> 1: ALG:: | 2:ALG 1:#0 if not found)
  12135. 5142C :: FINDs1
  12136. 5142C @  Finds s1 from algebraic(explodes it) and gives its location if found
  12137. 5142C @  (1:ALG ->..stackform..3:#origlength of alg 2:#s1locationOnstack 1:True
  12138. 5142C @  (1:ALG -> 3:ALG 2:#0 1:False) if not found
  12139. 5142C @  Example: To replace s1 with 1: (stk1 is algebraic)
  12140. 5142C @  :: FINDs1 ITE :: %1 SWAP UNROLL SYMBN ; 2DROP ;
  12141. 51436 g' ID_s1
  12142. 51482 ::
  12143. 51496 ::
  12144. 514AF :: HP:GETRHS
  12145. 514C3 ::
  12146. 514DC :: HP:1REV
  12147. 514EB %  NS:%2PI
  12148. 51519 :: INNER#2=NcaseSIZEERR
  12149. 51532 :: HP:2HXSLIST?
  12150. 51564 ::
  12151. 51578 ::
  12152. 515A0 :: HP:TOPROW
  12153. 515B4 :: HP:BOTROW
  12154. 515CD P
  12155. 515FA :: HP:LEFTCOL
  12156. 5160E :: HP:RIGHTCOL
  12157. 5162C :: HP:WINDOWTOP?
  12158. 51645 :: HP:WINDOWBOT?
  12159. 5165E :: HP:WINDOWLEFT?
  12160. 51677 :: HP:WINDOWRIGHT?
  12161. 51690 :: HP:JUMPTOP
  12162. 516AE :: HP:JUMPBOT
  12163. 516E5 :: HP:JUMPLEFT
  12164. 51703 :: HP:JUMPRIGHT
  12165. 51735 :: NS:REPEATER2
  12166. 51735 @  REPEATER slows down the repeat (the internal editor was too fast :)
  12167. 51735 @  REPEATER2 doesn't
  12168. 5176C :: :EVAL:
  12169. 5176C @  :: EVAL ;
  12170. 5178A :: 8&7GETLAM
  12171. 5179E :: HP:DUPGROBDIM
  12172. 5179E @  push GROB dimensions (2:Rows,1:Columns)
  12173. 517B2 :: 3PICKGROBDIM
  12174. 517B2 @  3 PICK and get GROB dimensions -> (2:Rows,Columns)
  12175. 517C6 :: NS:OVEREQcaseDRP
  12176. 517C6 @  (Ob Ob') :: OVEREQcaseDROP <False> ; -> == () / Ob <False>
  12177. 517DA :: NS:COLADROP
  12178. 517DA @  (Ob) :: COLADROP <Never> ; -> ()
  12179. 517F3 :: NS:EQUALcasedrop
  12180. 517F3 :: HP:EQUALcasedro
  12181. 517F3 @  (Ob1 Ob2 Ob3) :: EQUALcasedro <True> <False> ; == <True> / Ob1 <False>
  12182. 51807 :: DROPcola
  12183. 51807 @  :: DROP COLA COLA ; ??? ( 28585 is DROPCOLA = :: DROP COLACOLA ; )
  12184. 5182F :: HP:ISTOP-INDEX
  12185. 5182F @  Calculate ISTOP@ - INDEX@ (-> 1:#)
  12186. 51843 :: HP:SWAP#1+SWAP
  12187. 51843 @  (2:#n 1:Any -> 2:#n+1 1:Any)
  12188. 51857 :: HP:SWAPpull
  12189. 51857 :: NS:SWAP#1-SWAP
  12190. 51857 @  (2:#n 1:Any -> 2:#n-1 1:Any)
  12191. 5186B :: NS:DROPDoBadKey
  12192. 5186B @  Internal DROP and chirp (337 Hz, 70 msec), freeze display
  12193. 5187F :: HP:GBUFFGROBDIM
  12194. 5187F @  Get PICT dimensions -> (2:#Rows 1:#Columns)
  12195. 51893 :: HP:ORDERXY#
  12196. 51893 @  (4:#x2 3:#y2 2:#x1 1:#y1 -> 4:#Min(x1,x2) 3:#Min(y) 2:#Max(x)...
  12197. 518CA :: HP:ORDERXY%
  12198. 518CA @  (4:%x2 3:%y2 2:%x1 1:%y1 -> 4:%Min(x1,x2) 3:%Min(y) 2:%Max(x)...
  12199. 51901 :: PlotEnv?ERR
  12200. 51901 @  Error (Obj in use) if in Plot environment
  12201. 5190B l' LAM_'PlotEnv
  12202. 5193B C%% HP:C%%1
  12203. 5196A C%  HP:C%-1
  12204. 5198F :: NS:DROP%0
  12205. 5198F @  Internal RE for reals (1:Ob -> 1:%0)
  12206. 519A3 :: HP:C>Re%
  12207. 519A3 @  Internal RE (1:C% -> 1:%re)
  12208. 519B7 :: HP:C>Im%
  12209. 519B7 @  Internal IM (1:C% -> 1:%im)
  12210. 519CB :: HP:C%>%%
  12211. 519CB @  Internal C->LR (1:C% -> 2:%%re 1:%%im)
  12212. 519DF :: HP:C%>%%SWAP
  12213. 519DF @  Internal C->LR (1:C% -> 2:%%im 1:%%re)
  12214. 519F8 P  HP:C%%>C%
  12215. 519F8 @  Internal LC->C (1:C%% -> 1:C%)
  12216. 51A07 P  HP:%%>C%
  12217. 51A07 @  Internal LR->C (2:%%re 1:%%im -> 1:C%)
  12218. 51A37 P  HP:Re>C%
  12219. 51A37 @  Internal R->C (1:%re -> 1:C%)
  12220. 51A4A P  NS:C%*i
  12221. 51A4A @  multiply by i (1:C% -> 1:C%)
  12222. 51A5F P  NS:C%/i
  12223. 51A5F @  divide by i (1:C% -> 1:C%)
  12224. 51A71 :: NS:2%>%%SQR
  12225. 51A71 @  Calc stk1^2 + stk2^2 (2:% 1:% -> 1:%%)
  12226. 51A94 :: NS:%%SQR
  12227. 51A94 @  Calc stk1^2 + stk2^2 (2:%% 1:%% -> 1:%%)
  12228. 51AB7 :: NS:%MAXIMIZE
  12229. 51AB7 @  (1:% -> 1:%0, %MAXR or %MINR) (According to sign)
  12230. 51ADF :: NS:metaC%%*
  12231. 51ADF @  (4:%%re 3:%%im 2:%%re 1:%%im -> 2:%%re 1:%%im)
  12232. 51B2A P  HP:C%%0=
  12233. 51B43 P  HP:C%0=
  12234. 51B70 P  HP:C%CHS
  12235. 51B91 P  HP:C%%CHS
  12236. 51BB2 P  HP:C%CONJ
  12237. 51BC1 P  HP:C%%CONJ
  12238. 51BD0 :: NS:C%+%
  12239. 51BD0 @  Internal + (2:C% 1:% -> 1:C%)
  12240. 51BE4 :: HP:%+SWAP
  12241. 51BE4 @  (3:Any 2:% 1:% -> 2:% 1:Any)
  12242. 51BF8 :: NS:%+C%
  12243. 51BF8 @  Internal + (2:% 1:C% -> 1:C%)
  12244. 51C16 :: NS:C%+
  12245. 51C16 @  Internal + (2:C% 1:C% -> 1:C%)
  12246. 51C3E :: NS:C%%+
  12247. 51C3E @  Internal + (2:C%%1:C%%)
  12248. 51C6B :: NS:SWAP2C%>%
  12249. 51C6B @  (2:C%2 1:C%1 -> 4:%re1 3:%im1 2:%re2 1:%re1)
  12250. 51C84 :: NS:SWAP2C%%>%%
  12251. 51C84 @  (2:C%%2 1:C%%1 -> 4:%%re1 3:%%im1 2:%%re2 1:%%re1)
  12252. 51C9D :: NS:C%%+%%
  12253. 51CB1 :: NS:%%+C%%
  12254. 51CD4 :: NS:%-C%
  12255. 51CE8 :: NS:C%-%
  12256. 51CFC :: NS:C%-
  12257. 51D10 :: NS:C%%-
  12258. 51D24 :: NS:%%-C%%
  12259. 51D38 :: NS:C%%-%%
  12260. 51D4C :: NS:C%*%
  12261. 51D60 :: NS:%*C%
  12262. 51D88 :: NS:C%*
  12263. 51DAB :: NS:C%%*%%
  12264. 51DBF :: NS:%%*C%%
  12265. 51DE2 :: NS:C%%*
  12266. 51DFB :: metaSWAPC%%/%%
  12267. 51DFB @  (3:%%re1 2:%%re2 1:%%im2 -> 2:%%re 1:%%im)
  12268. 51E19 :: NS:%/C%
  12269. 51E19 @  Internal / (2:% 1:C% -> 1:C%)
  12270. 51E64 :: NS:C%/%
  12271. 51E64 @  Internal / (2:C% 1:% -> 1:C%)
  12272. 51E9B :: %%CHS4PSH%%SQUARESROT
  12273. 51E9B @  (3:Any 2:%%2 1:%%1 -> 4:%%2*%%2+%%1*%%1 3:%%2 2:-%%1 1:Any)
  12274. 51EA5 :: 4PSH%%SQUARES
  12275. 51EA5 @  (3:Any 2:%%2 1:%%1 -> 4:%%2*%%2+%%1*%%1 3:Any 2:%%2 1:%%1)
  12276. 51EC8 :: NS:C%/
  12277. 51EC8 @  Internal / (2:C% 1:C% -> 1:C%)
  12278. 51EFA :: HP:C%1/
  12279. 51EFA @  Internal INV (1:C% -> 1:C%)
  12280. 51F13 :: NS:C%%/
  12281. 51F3B :: NS:%%/C%%
  12282. 51F7C :: NS:C%%/%%
  12283. 51F9A :: %/0
  12284. 51FB3 :: C%/0
  12285. 51FDB :: neg/0
  12286. 51FF9 :: (0,x)/0
  12287. 52017 :: FLOAT/0
  12288. 5203A :: MAKEInfRes
  12289. 5203A @  If infinite result allowed flag set, set indicator, else error
  12290. 52062 :: HP:C%ABS
  12291. 52062 @  Internal ABS (1:C% -> 1:%)
  12292. 52080 :: NS:C%%ABS
  12293. 52099 :: HP:C%ARG
  12294. 52099 @  Internal ARG (1:C% -> 1:%)
  12295. 520B2 :: NS:2DUP%%R
  12296. 520B2 @  (2:%% 1:%% -> 3:%% 2:%% 1:%%SQRT(%%2*%%2+%%1*%%1)
  12297. 520CB :: HP:C%SGN
  12298. 520CB @  Internal SIGN (1:C% -> 1:C%)
  12299. 52107 :: HP:C%SQRT
  12300. 52107 @  Internal sqrt (1:C% -> 1:C%)
  12301. 52193 :: HP:C%EXP
  12302. 52193 @  Internal EXP (1:C% -> 1:C%)
  12303. 521A7 :: metaC%%EXP>C%
  12304. 521A7 @  (2:%%re 1:%%im -> 1:C%)
  12305. 521E3 :: HP:C%LN
  12306. 521E3 @  Internal LN (1:C% -> 1:C%)
  12307. 52215 ::
  12308. 5223D ::
  12309. 52283 ::
  12310. 522BF :: HP:C%LOG
  12311. 522BF @  Internal LOG (1:C% -> 1:C%)
  12312. 52305 :: HP:C%ALOG
  12313. 52305 @  Internal ALOG (1:C% -> 1:C%)
  12314. 5230F %% %%2.30258509299405
  12315. 52342 :: HP:C%R^C
  12316. 52342 @  Internal ^ (2:% 1:C% -> 1:C%)
  12317. 52360 :: HP:C%C^R
  12318. 52360 @  Internal ^ (2:C% 1:% -> 1:C%)
  12319. 52374 :: HP:C%C^C
  12320. 52374 @  Internal ^ (2:C% 1:C% -> 1:C%)
  12321. 523A1 ::
  12322. 523E2 ::
  12323. 5242D ::
  12324. 52491 ::
  12325. 524AF C%  HP:C%0
  12326. 524DE ::
  12327. 524F7 C%  HP:C%1
  12328. 52530 :: HP:C%SIN
  12329. 52530 @  Internal SIN (1:C% -> 1:C%)
  12330. 52571 :: HP:C%COS
  12331. 52571 @  Internal COS (1:C% -> 1:C%)
  12332. 525B7 :: HP:C%TAN
  12333. 525B7 @  Internal TAN (1:C% -> 1:C%)
  12334. 5262F :: HP:C%SINH
  12335. 5262F @  Internal SINH (1:C% -> 1:C%)
  12336. 52648 :: HP:C%COSH
  12337. 52648 @  Internal COSH (1:C% -> 1:C%)
  12338. 5265C :: HP:C%TANH
  12339. 5265C @  Internal TANH (1:C% -> 1:C%)
  12340. 52675 :: HP:C%ATAN
  12341. 52675 @  Internal ATAN (1:C% -> 1:C%)
  12342. 5267F C%  NS:C%i
  12343. 526AE C%  NS:C%-i
  12344. 5278C ::
  12345. 527EB :: HP:C%ATANH
  12346. 527EB @  Internal ATANH (1:C% -> 1:C%)
  12347. 52804 :: HP:C%ASIN
  12348. 52804 @  Internal ASIN (1:C% -> 1:C%)
  12349. 5281D :: HP:C%ASINH
  12350. 5281D @  Internal ASINH (1:C% -> 1:C%)
  12351. 52836 :: HP:C%ACOSH
  12352. 52836 @  Internal ACOSH (1:C% -> 1:C%)
  12353. 52863 :: HP:C%ACOS
  12354. 52863 @  Internal ACOS (1:C% -> 1:C%)
  12355. 52881 ::
  12356. 5291C :: NS:2DROP%%0
  12357. 529F3 :: NS:DROP%%0<
  12358. 52A07 :: NS:SWAPDROP%%0>=
  12359. 52A2F %% NS:%%0.7
  12360. 52A53 ::
  12361. 52C36 ::
  12362. 52C4A :: 4DROP%0%0
  12363. 52C72 %  %1e-12
  12364. 52C8C CD
  12365. 52D26 {} HP:4NULLLAM{}
  12366. 52D49 CD
  12367. 52D8A CD
  12368. 52DC5 CD
  12369. 52E2E CD
  12370. 52F2D CD
  12371. 52F7F CD
  12372. 5309B CD
  12373. 5320C CD
  12374. 5346D CD
  12375. 534F1 CD
  12376. 53521 CD
  12377. 53627 ::
  12378. 536FB P  NS:#2^
  12379. 536FB @  (1:#n -> 2:#2^n)
  12380. 53725 P  HP:SetUserFlag
  12381. 53725 @  Set user flag (1:#)
  12382. 53731 P  HP:SetSysFlag
  12383. 53731 @  Set system flag (1:#)
  12384. 53755 P  HP:ClrUserFlag
  12385. 53755 @  Clear user flag (1:#)
  12386. 53761 P  HP:ClrSysFlag
  12387. 53761 @  Clear system flag (1:#)
  12388. 53778 P  HP:TestUserFlag
  12389. 53778 @  User flag set? (1:# -> 1:T/F)
  12390. 53784 P  HP:TestSysFlag
  12391. 53784 @  System flag set? (1:# -> 1:T/F)
  12392. 53807 @  XFER: Error Bad Arg Val
  12393. 5380E P  HP:COERCEFLAG
  12394. 5380E @  If pop stk1 = True then push 1 else push 0
  12395. 53842 :: CKLASTARGflag
  12396. 53842 @  If LASTARG flag is clear ClrLastArg
  12397. 53860 P  NS:LASTCMD_ON?
  12398. 5386E P  NS:LASTCMD_ON
  12399. 5387C P  NS:LASTCMD_OFF
  12400. 5388A :: ClrLastCmdOnClr2wordsfrom705DD
  12401. 5389E P  Clr2wordsfrom705DD
  12402. 538C0 P  NS:UNDO_ON?
  12403. 538CE P  NS:UNDO_ON
  12404. 538DC P  NS:UNDO_OFF
  12405. 538EA P  Set_70687:2
  12406. 538F8 P  Clr_70687:2
  12407. 53906 P  Tst_70687:2
  12408. 53914 P  SetStkDisp$Fmt
  12409. 53922 P  ClrStkDisp$Fmt
  12410. 53922 @  Clears 70687:8
  12411. 53930 P  StkDisp$Fmt?
  12412. 5393E P  SetCompPrint
  12413. 5393E @  Sets 70685:8 (Parsed obj is printed)
  12414. 5394C P  ClrCompPrint
  12415. 5395A P  CompPrint?
  12416. 53968 P  NS:AlgEntryOn?
  12417. 53976 P  HP:SetAlgEntry
  12418. 53984 P  NS:ClrAlgEntry
  12419. 53992 P  NS:LowCase?
  12420. 539A0 P  NS:TogLowCase
  12421. 539AE P  NS:ClrLowCase
  12422. 539BC P  Tst_7068D:2
  12423. 539CA P  Set_7068D:2
  12424. 539D8 P  Clr_7068D:2
  12425. 539E6 mc ISysFlag?
  12426. 539E6 @  If 706c1c0 and c2 -> True/False, continue RPL
  12427. 539F1 mc TogISysFlag
  12428. 539F1 @  706c1c0.1 and not c2, continue RPL
  12429. 539F9 mc HP:SetISysFlag
  12430. 539F9 @  706c1c0.1 or c2, continue RPL
  12431. 53A12 P  NS:TogINSmode
  12432. 53A20 P  NS:ClrINSmode
  12433. 53A2E P  NS:SetINSmode
  12434. 53A3C P  NS:INSmode?
  12435. 53A4A P  Editing?
  12436. 53A4A @  not sure of this (HP:ImmedEntry? at 408AA)
  12437. 53A58 P  SetEditing
  12438. 53A66 P  ClrEditing
  12439. 53A74 P  Tst_7068D:4
  12440. 53A82 P  Set_7068D:4
  12441. 53A90 P  Clr_7068D:4
  12442. 53A9E P  NS:ShowClock?
  12443. 53AAC P  NS:SetShowClock
  12444. 53ABA P  NS:ClrShowClock
  12445. 53AC8 P  NS:IgnoreAlm?
  12446. 53AD6 P  NS:YesIgnoreAlm
  12447. 53AE4 P  HP:NoIgnoreAlm
  12448. 53AF2 @  MC: if 706c1c0 and c2, then set carry
  12449. 53B0A @  MC: 706c1c0.1 and not c2, A=d0...
  12450. 53B31 P  HP:setflag
  12451. 53B36 @  MC: 706c1c0 or c2, A=d0...
  12452. 53B45 @  MC: A=d0, c5=c2, D0=706c1c0, P=5
  12453. 53B88 :: NS:ClrNumFlag
  12454. 53B88 @  clear Numeric Results (-3)
  12455. 53B9C :: NS:SetNumFlag
  12456. 53B9C @  set Numeric Results (-3)
  12457. 53BB0 :: NS:NotNumFlag?
  12458. 53BB0 @  if not Numeric Results (-3) -> True/False
  12459. 53BC9 :: NS:DEG?
  12460. 53BDD :: HP:RAD?
  12461. 53BDD @  if Radians (-17) -> True/False
  12462. 53BF1 :: NS:AngleFlags
  12463. 53BF1 @  return Angle Mode Flags -> (2:Rad 1:Degrees/Grads)
  12464. 53C0A :: NS:NotConstFlag?
  12465. 53C0A @  if not Symbolic Constants (-2) -> True/False
  12466. 53C23 :: NS:PrSolFlag?
  12467. 53C23 @  if Principal Solution (-1) -> True/False
  12468. 53C37 P  HP:DOHEX
  12469. 53C37 @  Internal HEX
  12470. 53C43 P  HP:DOBIN
  12471. 53C43 @  Internal BIN
  12472. 53C4F P  HP:DOOCT
  12473. 53C4F @  Internal OCT
  12474. 53C5B P  HP:DODEC
  12475. 53C5B @  Internal DEC
  12476. 53C96 :: %STWS
  12477. 53C96 @  Internal STWS (1:% ->)
  12478. 53CAA P  HP:dostws
  12479. 53CAA P  NS:STWS
  12480. 53CAA @  Internal STWS (1:# ->)
  12481. 53CF0 :: NS:RCWS
  12482. 53CF0 @  Internal RCWS (-> 1:%)
  12483. 53D04 P  HP:bitAND
  12484. 53D04 @  Internal AND (2:HXS 1:HXS -> 1:HXS)
  12485. 53D15 P  HP:bitOR
  12486. 53D15 @  Internal OR (2:HXS 1:HXS -> 1:HXS)
  12487. 53D26 P  HP:bitXOR
  12488. 53D26 @  Internal XOR (2:HXS 1:HXS -> 1:HXS)
  12489. 53D4E P  HP:bitNOT
  12490. 53D4E @  Internal NOT (1:HXS -> 1:HXS)
  12491. 53D5E P  HP:bitSL
  12492. 53D5E @  Internal SL (1:HXS -> 1:HXS)
  12493. 53D6E P  HP:bitSLB
  12494. 53D6E @  Internal SLB (1:HXS -> 1:HXS)
  12495. 53D81 P  HP:bitSR
  12496. 53D81 @  Internal SR (1:HXS -> 1:HXS)
  12497. 53D91 P  HP:bitSRB
  12498. 53D91 @  Internal SRB (1:HXS -> 1:HXS)
  12499. 53DA4 P  HP:bitRR
  12500. 53DA4 @  Internal RR (1:HXS -> 1:HXS)
  12501. 53DE1 P  HP:bitRRB
  12502. 53DE1 @  Internal RRB (1:HXS -> 1:HXS)
  12503. 53E0C P  HP:bitRL
  12504. 53E0C @  Internal RL (1:HXS -> 1:HXS)
  12505. 53E3B P  HP:bitRLB
  12506. 53E3B @  Internal RLB (1:HXS -> 1:HXS)
  12507. 53E65 P  HP:bitASR
  12508. 53E65 @  Internal ASR (1:HXS -> 1:HXS)
  12509. 53EA0 P  HP:bit+
  12510. 53EA0 @  Internal + (2:HXS 1:HXS -> 1:HXS)
  12511. 53EB0 P  HP:bit-
  12512. 53EB0 @  Internal - (2:HXS 1:HXS -> 1:HXS)
  12513. 53EC3 P  bitNEG
  12514. 53EC3 @  Internal NEG (1:HXS -> 1:HXS)
  12515. 53ED3 P  HP:bit*
  12516. 53ED3 @  Internal * (2:HXS 1:HXS -> 1:HXS)
  12517. 53EE4 *  HP:MPY
  12518. 53F05 P  HP:bit/
  12519. 53F05 @  Internal / (2:HXS 1:HXS -> 1:HXS)
  12520. 53F69 @  MC XFER: save regs D,B,D1,D0 (uses C)
  12521. 53F70 @  MC XFER: load regs D,B,D1,D0 (uses C)
  12522. 54021 @  Let A.A = (@706C6 & #3F) + 1
  12523. 54039 P  HP:WORDSIZE
  12524. 54039 @  Internal RCWS (-> 1:#)
  12525. 54050 P  NS:BASEHEX
  12526. 54050 @  (-> 1:  Hex:#10h Dec:#10d Oct:#10o Bin:#10b) 
  12527. 54061 :: HP:HXS>$
  12528. 54061 @  Does hxs>$, then appends base character (1:HXS -> 1:$)
  12529. 5407A :: NS:BASECHAR
  12530. 5407A @  Returns b, o, d or h according to current base (-> 1:Char)
  12531. 540BB P  HP:hxs>$
  12532. 540BB @  Converts HXS to string without base character (1:HXS -> 1:$)
  12533. 54266 mc HP:GPPushA
  12534. 5429F :: HP:bit%#/
  12535. 5429F @  Internal / (2:% 1:HXS -> 1:HXS)
  12536. 542BD :: HP:bit#%/
  12537. 542BD @  Internal / (2:HXS 1:% -> 1:HXS)
  12538. 542D1 :: HP:bit%#*
  12539. 542D1 @  Internal * (2:% 1:HXS -> 1:HXS)
  12540. 542EA :: HP:bit#%*
  12541. 542EA @  Internal * (2:HXS 1:% -> 1:HXS)
  12542. 542FE :: HP:bit%#-
  12543. 542FE @  Internal - (2:% 1:HXS -> 1:HXS)
  12544. 5431C :: HP:bit#%-
  12545. 5431C @  Internal - (2:HXS 1:% -> 1:HXS)
  12546. 54330 :: HP:bit%#+
  12547. 54330 @  Internal + (2:% 1:HXS -> 1:HXS)
  12548. 54349 :: HP:bit#%+
  12549. 54349 @  Internal + (2:HXS 1:% -> 1:HXS)
  12550. 5435D P  HP:#>%
  12551. 5435D P  HP:HXS>%
  12552. 5435D @  Internal B->R (1:HXS -> 1:%)
  12553. 543F9 P  HP:%>#
  12554. 543F9 @  Internal R->B (1:% -> 1:HXS)
  12555. 54419 @  MC: push A.W (%) as HXS
  12556. 544D9 P  NS:HXS=
  12557. 544D9 @  Internal == (2:HXS 1:HXS -> 1:%)
  12558. 544EC :: HP:HXS#HXS
  12559. 544EC @  Internal <> (2:HXS 1:HXS -> 1:%)
  12560. 54500 P  HP:HXS>HXS
  12561. 54500 @  Internal > (2:HXS 1:HXS -> 1:%)
  12562. 5452C P  HP:HXS>=HXS
  12563. 5452C @  Internal >= (2:HXS 1:HXS -> 1:%)
  12564. 5453F P  HP:HXS<=HXS
  12565. 5453F @  Internal <= (2:HXS 1:HXS -> 1:%)
  12566. 54552 P  HP:HXS<HXS
  12567. 54552 @  Internal < (2:HXS 1:HXS -> 1:%)
  12568. 54565 :: SYMIFTE
  12569. 54565 @  Internal IFTE (3:sym 2:sym/%/C% 1:sym/%/C%)
  12570. 5456A {} LAM{'tcls'fcls}
  12571. 5456A @  Used to bind <True program> and <False program> (IFTE)
  12572. 5456F l' LAM_'tcls
  12573. 54580 l' LAM_'fcls
  12574. 5459B :: BOUNDSYMIFTE
  12575. 5459B @  Same as SYMIFTE, but stk1&2 already bound to 'tcls and 'fcls (No ABND)
  12576. 545A0 :: HP:cknumdsptch1
  12577. 54609 :: MakeIFTEmeta
  12578. 5460E l' LAM_'tcls
  12579. 54624 l' LAM_'fcls
  12580. 54653 :: COLAGetTFlamsABNDxIFTE
  12581. 5465D l' LAM_'tcls
  12582. 5466E l' LAM_'fcls
  12583. 54693 ::
  12584. 546B1 ::
  12585. 546C5 :: NS:EVALABND
  12586. 54747 ::
  12587. 547AB {} null{}
  12588. 547B5 :: HP:SYMBWHERE
  12589. 547B5 @  Internal | (N+2:ALG .. 3:ALG_ID 2:newID 1:#n) #n is 2*changes+1
  12590. 547B5 @  Example:ALG_X+C ALG_C ID_B ALG_X ID_Y #5 -> ALG_Y+B
  12591. 547E2 :: LONEWHERE
  12592. 547E2 @  Used when ALG to check is #1 sized
  12593. 54805 :: meta&ObSWAPDROPCKsymcomp
  12594. 54805 @  (meta Ob -> Ob or ALG_Ob) (ID,LAM,%,C%,Unit not symcomp'ed)
  12595. 5483C :: NS:COLAkeep1st
  12596. 5483C @  Return & (Meta&Ob -> Ob)
  12597. 54887 ::
  12598. 548AA :: NS:revpull&psh
  12599. 548AA @  (Meta&Ob1 Ob2 -> Ob1&Ob2 Meta)
  12600. 548D2 ::
  12601. 54922 ::
  12602. 54954 :: NS:SYMDER
  12603. 54954 @  Internal delta (complete derivative) (2:sym 1:sym)
  12604. 54977 :: NS:stepDER
  12605. 54977 @  Stepwise derivative (2:ALG_dervar 1:sym)
  12606. 5499F :: NS:drop%0ABND
  12607. 5499F @  (Meta -> %0)
  12608. 549CC {} LAM{'dvar}
  12609. 549CC @  { ''dvar' }
  12610. 549DB l' NS:LAM_'dvar
  12611. 549EC P  NS:MNoSyms?case
  12612. 549EC @  If meta has no IDs/LAMs/ALGs/romps then COLA else SKIP
  12613. 54A6F :: NotAlgDER
  12614. 54A9C :: NS:DROP%1ABND
  12615. 54AE2 :: NS:ABNDEQUAL>%
  12616. 54B05 :: 1ABNDSWAPstepDER
  12617. 54B1E :: NS:DROP%0ABND
  12618. 54B32 :: YDER
  12619. 54B32 @  (Meta SYMB_ID <op> ->)
  12620. 54B69 :: 5ROLL5ROLL#1-5UNROLL
  12621. 54BAF :: COMPEVALUntilNoDERs
  12622. 54BD7 :: COMPEVALCK1NOLASTWD
  12623. 54BF5 :: NS:DERsInComp?
  12624. 54C2C ::
  12625. 54C4F :: NS:RDROPTRUE
  12626. 54C63 :: HP:nmetasyms
  12627. 54C63 @  Checks meta object for syms (% C% Unit sym allowed) (...1:#n)
  12628. 54CB3 :: NS:SWAPLOOPDROP
  12629. 54CC7 :: SWAPDROPSETTYPEERR
  12630. 54CDB :: MINR
  12631. 54CDB @  Internal MINR (1.E-499)
  12632. 54CEF :: NS:addt:SYMBN
  12633. 54CEF @  (Meta -> ALG_Meta&Ob) (Ob next in this instr. stream)
  12634. 54D12 :: MAXR
  12635. 54D12 @  Internal MAXR (9.99999999999E499)
  12636. 54D35 :: PI
  12637. 54D35 @  Internal pi (3.14159265359)
  12638. 54D58 :: i
  12639. 54D58 @  Internal i (0,1)
  12640. 54D7B :: e
  12641. 54D7B @  Internal e (2.71828182846)
  12642. 54D9E :: XEQRCLSKIPCOLA
  12643. 54DBC :: SymExecOn2:
  12644. 54DCB {} LAM{'xSYMfcn'xfcn}
  12645. 54DD0 l' LAM_'xSYMfcn
  12646. 54DE7 l' LAM_'xfcn
  12647. 54E2A :: SymExecWith12LamIf=used
  12648. 54E2A @  (Ob1 Ob2 .. x= #n -> ALG_2LAM(left)=2LAM(right) )
  12649. 54E5C :: PIMatchDo
  12650. 54E7F P  PICOL?skipcola
  12651. 54E7F @  PI -> COLA, PI 2 / -> skipcola, else 3SKIP
  12652. 54E7F @  Used by COLCT routines (SIN(PI/2) etc)
  12653. 54EA0 :: NS:SYMRE
  12654. 54EA0 @  Internal RE (1:sym -> ALG)
  12655. 54EB9 :: NS:SYMIM
  12656. 54EB9 @  Internal IM (1:sym -> ALG)
  12657. 54ED2 :: NS:SYMNOT
  12658. 54ED2 @  Internal NOT (1:sym -> ALG)
  12659. 54EEB :: NS:SYMNEG
  12660. 54EEB @  Internal NEG (1:sym -> 1:ALG)
  12661. 54F04 :: NS:SYMABS
  12662. 54F04 @  Internal ABS (1:sym -> 1:ALG)
  12663. 54F1D :: NS:SYMCONJ
  12664. 54F1D @  Internal CONJ (1:sym -> 1:ALG)
  12665. 54F36 :: NS:SYMINV
  12666. 54F36 @  Internal INV (1:sym -> 1:ALG)
  12667. 54F4F :: NS:SYMARG
  12668. 54F4F @  Internal ARG (1:sym -> 1:ALG)
  12669. 54F68 :: NS:SYMSIGN
  12670. 54F68 @  Internal SIGN (1:sym -> 1:ALG)
  12671. 54F81 :: NS:SYMSQRT
  12672. 54F81 @  Internal sqrt (1:sym -> 1:ALG)
  12673. 54F9A :: NS:SYMSQ
  12674. 54F9A @  Internal SQ (1:sym -> 1:ALG)
  12675. 54FB3 :: NS:SYMSIN
  12676. 54FB3 @  Internal SIN (1:sym -> 1:ALG)
  12677. 54FCC :: NS:SYMCOS
  12678. 54FCC @  Internal COS (1:sym -> 1:ALG)
  12679. 54FE5 :: NS:SYMTAN
  12680. 54FE5 @  Internal TAN (1:sym -> 1:ALG)
  12681. 54FFE :: NS:SYMSINH
  12682. 54FFE @  Internal SINH (1:sym -> 1:ALG)
  12683. 55017 :: NS:SYMCOSH
  12684. 55017 @  Internal COSH (1:sym -> 1:ALG)
  12685. 55030 :: NS:SYMTANH
  12686. 55030 @  Internal TANH (1:sym -> 1:ALG))
  12687. 55049 :: NS:SYMASIN
  12688. 55049 @  Internal ASIN (1:sym -> 1:ALG))
  12689. 55062 :: NS:SYMACOS
  12690. 55062 @  Internal ACOS (1:sym -> 1:ALG))
  12691. 5507B :: NS:SYMATAN
  12692. 5507B @  Internal ATAN (1:sym -> 1:ALG))
  12693. 55094 :: NS:SYMASINH
  12694. 55094 @  Internal ASINH (1:sym -> 1:ALG))
  12695. 550AD :: NS:SYMACOSH
  12696. 550AD @  Internal ACOSH (1:sym -> 1:ALG))
  12697. 550C6 :: NS:SYMATANH
  12698. 550C6 @  Internal ATANH (1:sym -> 1:ALG))
  12699. 550DF :: NS:SYMEXP
  12700. 550DF @  Internal EXP (1:sym -> 1:ALG))
  12701. 550F8 :: NS:SYMLN
  12702. 550F8 @  Internal LN (1:sym -> 1:ALG))
  12703. 55111 :: NS:SYMLOG
  12704. 55111 @  Internal LOG (1:sym -> 1:ALG))
  12705. 5512A :: NS:SYMALOG
  12706. 5512A @  Internal ALOG (1:sym -> 1:ALG))
  12707. 55143 :: NS:SYMLNP1
  12708. 55143 @  Internal LNP1 (1:sym -> 1:ALG))
  12709. 5515C :: NS:SYMEXPM
  12710. 5515C @  Internal EXPM (1:sym -> 1:ALG))
  12711. 55175 :: NS:SYMFACT
  12712. 55175 @  Internal ! (1:sym -> 1:ALG))
  12713. 5518E :: NS:SYMIP
  12714. 5518E @  Internal IP (1:sym -> 1:ALG))
  12715. 551A7 :: NS:SYMFP
  12716. 551A7 @  Internal FP (1:sym -> 1:ALG)
  12717. 551C0 :: NS:SYMFLOOR
  12718. 551C0 @  Internal FLOOR (1:sym -> 1:ALG)
  12719. 551D9 :: NS:SYMCEIL
  12720. 551D9 @  Internal CEIL (1:sym -> 1:ALG)
  12721. 551F2 :: NS:SYMEXPONENT
  12722. 551F2 @  Internal XPON (1:sym -> 1:ALG)
  12723. 5520B :: NS:SYMMANT
  12724. 5520B @  Internal MANT (1:sym -> 1:ALG)
  12725. 55224 :: NS:SYMD>R
  12726. 55224 @  Internal D->R (1:sym -> 1:ALG)
  12727. 5523D :: NS:SYMR>D
  12728. 5523D @  Internal R->D (1:sym -> 1:ALG)
  12729. 55256 :: NS:SYMUBASE
  12730. 55256 @  Internal UBASE (1:sym -> 1:sym)
  12731. 5526F :: NS:SYMUVAL
  12732. 5526F @  Internal UVAL (1:sym -> 1:sym)
  12733. 55288 :: NS:1GETLAMSWP1+
  12734. 55288 :: NS:addtw1
  12735. 5529C :: NS:MSINHw1
  12736. 552B0 :: NS:MCOSHw1
  12737. 552C4 :: NS:MTANHw1
  12738. 552D8 :: NS:MEXPw1
  12739. 552EC :: NS:MALOGw1
  12740. 55300 :: NS:MEXPMw1
  12741. 55314 :: NS:M1stEQ:Drp/w1
  12742. 55314 @  If next matches Metas 1st ob then drop it, else add 1LAM to tail
  12743. 55314 @  Example: A B + INV #4 (1LAM=INV) :: M1s.... INV ; -> A B + #3
  12744. 55314 @  Example: A B + #3 (1LAM=INV) :: M1s.. INV ; -> A B + INV #4
  12745. 55314 @  Example: A B + #3 (1LAM=INV) :: M1s.. x+ ; -> A B #2
  12746. 5533C :: NS:MSINw1
  12747. 55346 :: addw1&MNEG
  12748. 55378 :: NS:MCOSw1
  12749. 553A5 :: NS:MTANw1
  12750. 553D2 :: NS:MNEGw1
  12751. 553D2 @  Negates Meta object (1LAM has xNEG)
  12752. 553D2 @  All M<op>w1 words must have <op> in 1LAM and ABND is NOT made
  12753. 553EB :: NS:MINVw1
  12754. 5540E :: NS:M1stNOTw1?add
  12755. 5540E @  If Metas 1st is EQ to 1LAM then nothing, else add it to tail
  12756. 5540E @  Example: (1LAM=SIGN) A B + SIGN #4 -> A B + SIGN #4
  12757. 5540E @  Example: (1LAM=SIGN) A B + #3 -> A B + SIGN #4
  12758. 5542C :: NS:MREw1
  12759. 55477 :: NS:replw1
  12760. 55495 :: NS:MIMw1
  12761. 554B3 :: NS:replw%1
  12762. 554EF :: XY>Y1GETLAM'xNEGROT#1+
  12763. 5551C :: NS:drop%0#1
  12764. 5551C @  (Meta -> %0 #1)
  12765. 55535 :: NS:drop%1#1
  12766. 55535 @  (Meta -> %1 #1)
  12767. 5554E :: NS:drop%-1#1
  12768. 5554E @  (Meta -> %-1 #1)
  12769. 55567 :: NS:MCONJw1
  12770. 555B2 :: NS:MABSw1
  12771. 555CB :: XY>Y1GETSWAP
  12772. 555E9 :: NS:MSQw1
  12773. 55607 :: NS:replw%-1
  12774. 55620 :: MSQw1.1
  12775. 55620 @  (Meta SQ if already ^) Example: A B + 3 ^ #5 -> A B + 3 2 * ^ #5 
  12776. 55657 :: NumFlag?COLACRUCNH&EVAL2ndInprev
  12777. 55666 {} LAM{'oth}
  12778. 5566B l' LAM_'oth
  12779. 556ED :: COLAXEQRCLSWAPCOLACOLARSKIPCOLA
  12780. 5570B :: SWAPXEQRCLCOLACOLARSKIPCOLA
  12781. 5571F :: SWAPCOLACOLARSKIPCOLA
  12782. 5573D :: COLACOLARSKIPCOLA
  12783. 5573D @  :: :: :: COLARSKIPCOLACOLA <Never> ; <Never>; <Never> <This> <Never> ;
  12784. 5573D @  :: RDROP 'R DROPCOLA COLA ;
  12785. 5575B ::
  12786. 5576F ::
  12787. 5577E {} LAM{'scl'xSYMfcn'xfcn}
  12788. 55783 l' LAM_'scl
  12789. 55792 l' LAM_'xSYMfcn
  12790. 557A9 l' LAM_'xfcn
  12791. 557EC :: MSYM%EVAL2:
  12792. 557EC @  Does operation like this :: MEQUEVAL2: <Metaprg> COMMAND ;
  12793. 557FB {} LAM{'xSYMfcn'xfcn}
  12794. 55800 l' LAM_'xSYMfcn
  12795. 55817 l' LAM_'xfcn
  12796. 55878 :: MEQUEVALw2>SYMB
  12797. 55878 @  Executes 2LAM (A meta handler) on 2 metas after splitting them (=)
  12798. 55878 @  (Meta1(=Meta2) Meta3(=Meta4) -> ALG_Meta1<op>Meta3=Meta2<op>Meta4 ) 
  12799. 558BE :: NS:MEQU?Splt/Dup
  12800. 558BE @  If meta is equation split it, else duplicate meta
  12801. 558BE @  Example: A B + 3 = #5  ->  3 #1  A B + #3
  12802. 558DC :: HP:sscknum2
  12803. 558DC @  (2:sym 1:sym) Usage: :: sscknum2 <ToMeta> Command ;
  12804. 558DC @  Evaluates command according to NumFlag?
  12805. 558DC @  If symbolic mode, then <ToMeta> is evaluated on the exploded sym
  12806. 558DC @  (with Command on 1LAM) after which SYMBN is done (if necessary)
  12807. 558DC @  Example: :: sscknum2 top&addtailw1 xAND ; is internal SYMAND
  12808. 558DC @  If NumFlag is set, stk1&2 are evaled and xAND is EVALed
  12809. 558DC @  Else stk1&2 are splitted and op&addtailw1 is executed with xAND
  12810. 558F5 :: HP:sncknum2
  12811. 558F5 @  (2:sym 1:%) Othewise the same as sscksum2 (2 first letters!!)
  12812. 5590E :: HP:nscknum2
  12813. 5590E @  (2:% 1:sym) Othewise the same as sncksum2 (2 first letters!!)
  12814. 55927 :: all=
  12815. 55927 @  Internal = (2:%/C%/sym/Unit 1:%/C%/sym/Unit -> 1:ALG)
  12816. 5592C ::
  12817. 55954 :: COLACK2INNERx=
  12818. 5599A :: NS:SYM%AND
  12819. 5599A @  Internal AND (2:sym,1:%)
  12820. 559B3 :: NS:%SYMAND
  12821. 559B3 @  Internal AND (2:%,1:sym)
  12822. 559CC :: NS:SYMAND
  12823. 559CC @  Internal AND (2:sym,1:sym)
  12824. 559E5 :: NS:SYM%OR
  12825. 559E5 @  Internal OR (2:sym,1:%)
  12826. 559FE :: NS:%SYMOR
  12827. 559FE @  Internal OR (2:%,1:sym)
  12828. 55A17 :: NS:SYMOR
  12829. 55A17 @  Internal OR (2:sym,1:sym)
  12830. 55A30 :: NS:SYM%XOR
  12831. 55A30 @  Internal XOR (2:sym,1:%)
  12832. 55A49 :: NS:%SYMXOR
  12833. 55A49 @  Internal XOR (2:%,1:sym)
  12834. 55A62 :: NS:SYMXOR
  12835. 55A62 @  Internal XOR (2:sym,1:sym)
  12836. 55A7B :: NS:SYMFLOAT==
  12837. 55A7B @  Internal == (2:sym 1:%/C%/Unit)
  12838. 55A94 :: NS:FLOATSYM==
  12839. 55A94 @  Internal == (2:%/C%/Unit 1:sym)
  12840. 55AAD :: NS:SYM==
  12841. 55AAD @  Internal == (2:sym 1:sym)
  12842. 55AC6 :: NS:SYMFLOAT<>
  12843. 55AC6 @  Internal <> (2:sym 1:%/C%/Unit)
  12844. 55ADF :: NS:FLOATSYM<>
  12845. 55ADF @  Internal <> (2:%/C%/Unit 1:sym)
  12846. 55AF8 :: NS:SYM<>
  12847. 55AF8 @  Internal <> (2:sym 1:sym)
  12848. 55B11 :: NS:SYM%<
  12849. 55B11 @  Internal < (2:sym,1:%/Unit)
  12850. 55B2A :: NS:%SYM<
  12851. 55B2A @  Internal < (2:%/Unit,1:sym)
  12852. 55B43 :: NS:SYM<
  12853. 55B43 @  Internal < (2:sym,1:sym)
  12854. 55B5C :: NS:SYM%>
  12855. 55B5C @  Internal > (2:sym,1:%/Unit)
  12856. 55B75 :: NS:%SYM>
  12857. 55B75 @  Internal > (2:%/Unit,1:sym)
  12858. 55B8E :: NS:SYM>
  12859. 55B8E @  Internal > (2:sym,1:sym)
  12860. 55BA7 :: NS:SYM%<=
  12861. 55BA7 @  Internal <= (2:sym,1:%/Unit)
  12862. 55BC0 :: NS:%SYM<=
  12863. 55BC0 @  Internal <= (2:%/Unit,1:sym)
  12864. 55BD9 :: NS:SYM<=
  12865. 55BD9 @  Internal <= (2:sym,1:sym)
  12866. 55BF2 :: NS:SYM%>=
  12867. 55BF2 @  Internal >= (2:sym,1:%/Unit)
  12868. 55C0B :: NS:%SYM>=
  12869. 55C0B @  Internal >= (2:%/Unit,1:sym)
  12870. 55C24 :: NS:SYM>=
  12871. 55C24 @  Internal >= (2:sym,1:sym)
  12872. 55C3D :: NS:SYM%OF
  12873. 55C3D @  Internal % (2:sym 1:%/Unit -> 1:ALG)
  12874. 55C56 :: NS:%SYMOF
  12875. 55C56 @  Internal % (2:%/Unit 1:sym -> 1:ALG) 
  12876. 55C6F :: NS:SYMOF
  12877. 55C6F @  Internal % (2:sym 1:sym -> 1:ALG)
  12878. 55C88 :: NS:SYM%%CH
  12879. 55C88 @  Internal %CH (2:sym 1:%/Unit -> 1:ALG)
  12880. 55CA1 :: NS:%SYM%CH
  12881. 55CA1 @  Internal %CH (2:%/Unit 1:sym -> 1:ALG)
  12882. 55CBA :: NS:SYM%CH
  12883. 55CBA @  Internal %CH (2:sym 1:sym -> 1:ALG)
  12884. 55CD3 :: NS:SYM%%T
  12885. 55CD3 @  Internal %T (2:sym 1:%/Unit -> 1:ALG)
  12886. 55CEC :: NS:%SYM%T
  12887. 55CEC @  Internal %T (2:%/Unit 1:sym -> 1:ALG)
  12888. 55D05 :: NS:SYM%T
  12889. 55D05 @  Internal %T (2:sym 1:sym -> 1:ALG)
  12890. 55D1E :: NS:SYM%COMB
  12891. 55D1E @  Internal COMB (2:sym 1:% -> 1:ALG)
  12892. 55D37 :: NS:%SYMCOMB
  12893. 55D37 @  Internal COMB (2:% 1:sym -> 1:ALG)
  12894. 55D50 :: NS:SYMCOMB
  12895. 55D50 @  Internal COMB (2:sym 1:sym -> 1:ALG)
  12896. 55D69 :: NS:SYM%PERM
  12897. 55D69 @  Internal PERM (2:sym 1:% -> 1:ALG)
  12898. 55D82 :: NS:%SYMPERM
  12899. 55D82 @  Internal PERM (2:% 1:sym -> 1:ALG)
  12900. 55D9B :: NS:SYMPERM
  12901. 55D9B @  Internal PERM (2:sym 1:sym -> 1:ALG)
  12902. 55DB4 :: NS:SYM%RND
  12903. 55DB4 @  Internal RND (2:sym 1:% -> 1:ALG)
  12904. 55DCD :: NS:RNDSYM
  12905. 55DCD @  Internal RND (2:%/C%/Array/Unit 1:sym -> 1:ALG)
  12906. 55DE6 :: NS:SYMRND
  12907. 55DE6 @  Internal RND (2:sym 1:sym ->1:ALG)
  12908. 55DFF :: NS:SYM%TRNC
  12909. 55DFF @  Internal TRNC (2:sym 1:% -> 1:ALG)
  12910. 55E18 :: NS:TRNCSYM
  12911. 55E18 @  Internal TRNC (2:%/C%/[]/Unit 1:sym -> 1:ALG)
  12912. 55E31 :: NS:SYMTRNC
  12913. 55E31 @  Internal TRNC (2:sym 1:sym -> 1:ALG)
  12914. 55E4A :: NS:SYM%MAX
  12915. 55E4A @  Internal MAX (2:sym 1:%/Unit -> 1:ALG)
  12916. 55E63 :: NS:%SYMMAX
  12917. 55E63 @  Internal MAX (2:%/Unit 1:sym -> 1:ALG)
  12918. 55E7C :: NS:SYMMAX
  12919. 55E7C @  Internal MAX (2:sym 1:sym -> 1:ALG)
  12920. 55E95 :: NS:SYM%MIN
  12921. 55E95 @  Internal MIN (2:sym 1:%/Unit -> 1:ALG)
  12922. 55EAE :: NS:%SYMMIN
  12923. 55EAE @  Internal MIN (2:%/Unit 1:sym -> 1:ALG)
  12924. 55EC7 :: NS:SYMMIN
  12925. 55EC7 @  Internal MIN (2:sym 1:sym -> 1:ALG)
  12926. 55EE0 :: NS:SYM^O
  12927. 55EE0 @  Internal ^ (2:sym 1:%/C%/Unit -> 1:ALG)
  12928. 55EF9 :: NS:O^SYM
  12929. 55EF9 @  Internal ^ (2:%/C%/Unit 1:sym -> 1:ALG)
  12930. 55F12 :: NS:SYM^
  12931. 55F12 @  Internal ^ (2:sym 1:sym -> 1:ALG)
  12932. 55F2B :: NS:SYM+O
  12933. 55F2B @  Internal + (2:sym 1:%/C%/Unit)
  12934. 55F44 :: NS:O+SYM
  12935. 55F44 @  Internal + (2:%/C%/Unit 1:sym)
  12936. 55F5D :: NS:SYM+
  12937. 55F5D @  Internal + (2:sym 1:sym -> 1:ALG)
  12938. 55F76 :: NS:SYM-O
  12939. 55F76 @  Internal - (2:sym 1:%/C%/Unit ->1:ALG)
  12940. 55F8F :: NS:O-SYM
  12941. 55F8F @  Internal - (2:%/C%/Unit 1:sym -> 1:ALG)
  12942. 55FA8 :: NS:SYM-
  12943. 55FA8 @  Internal - (2:sym 1:sym -> 1:ALG)
  12944. 55FC1 :: NS:SYM*O
  12945. 55FC1 @  Internal * (2:sym 1:%/C%/Unit -> 1:ALG)
  12946. 55FDA :: NS:O*SYM
  12947. 55FDA @  Internal * (2:%/C%/Unit 1:sym -> 1:ALG)
  12948. 55FF3 :: NS:SYM*
  12949. 55FF3 @  Internal * (2:sym 1:sym -> 1:ALG)
  12950. 5600C :: NS:SYM/O
  12951. 5600C @  Internal / (2:sym 1:%/C%/Unit -> 1:ALG)
  12952. 56025 :: NS:O/SYM
  12953. 56025 @  Internal / (2:%/C%/Unit 1:ALG)
  12954. 5603E :: NS:SYM/
  12955. 5603E @  Internal / (2:sym 1:sym -> 1:ALG)
  12956. 56057 :: NS:SYM%MOD
  12957. 56057 @  Internal MOD (2:sym 1:% -> 1:ALG)
  12958. 56070 :: NS:%SYMMOD
  12959. 56070 @  Internal MOD (2:% 1:sym -> 1:ALG)
  12960. 56089 :: NS:SYMMOD
  12961. 56089 @  Internal MOD (2:sym 1:sym -> 1:ALG)
  12962. 560A2 :: NS:SYM%XROOT
  12963. 560A2 @  Internal XROOT (2:sym 1:%/Unit -> 1:ALG)
  12964. 560BB :: NS:%SYMXROOT
  12965. 560BB @  Internal XROOT (2:%/Unit 1:sym -> 1:ALG)
  12966. 560D4 :: NS:SYMXROOT
  12967. 560D4 @  Internal XROOT (2:sym 1:sym -> 1:ALG)
  12968. 560ED :: NS::xssgeneral
  12969. 560ED :: NS:top&w1
  12970. 560ED @  Combines metas, then adds LAM1 to tail
  12971. 560ED @  Example: (1LAM=+)  A B + #3  C D - #3  ->  A B + C D - + #7
  12972. 56101 :: NS:xnsgeneral
  12973. 56101 :: NS:pshtopw3&w1
  12974. 56101 @  (Meta -> LAM3&Meta&LAM1)
  12975. 56101 @  Example: (3LAM=0,1LAM=+) A B + #3 -> 0 A B + + #5
  12976. 5611F :: NS:xsngeneral
  12977. 5611F :: NS:topw3&w1
  12978. 5611F @  (Meta -> Meta&LAM3&LAM1)
  12979. 5611F @  Example: (3LAM=0,1LAM=+) A B + #3 -> A B + 0 + #5
  12980. 5613D :: NS:MEQ?Drp/tp&w1
  12981. 5613D @  (Meta Meta -> Meta) (Meta1 Meta2 -> Meta1&Meta2<op>) (<op> from LAM1)
  12982. 56160 :: NS:M+
  12983. 56174 :: NS:M-
  12984. 56174 @  If Metas are Equal, %0 #1
  12985. 56183 :: NS:2drop%0#1
  12986. 56183 @  (Meta1 Meta2 -> %0 #1)
  12987. 561A6 :: M-.1
  12988. 561BA :: NS:M*
  12989. 561D8 :: NS:2drop%-1#1
  12990. 561D8 @  (Meta1 Meta2 -> %-1 #1)
  12991. 561FB :: pshM*NEG
  12992. 56214 :: NS:M/
  12993. 56237 :: pshM/NEG
  12994. 56250 ::
  12995. 5625F :: M2DROP%0#1
  12996. 562A5 ::
  12997. 562BE :: NS:droptop&addw1
  12998. 562BE @  (Meta1 Meta2 Meta3 -> Meta1&Meta2LAM1)
  12999. 562FA :: NS:w3^M
  13000. 56309 :: NS:DROPdropw3#1
  13001. 56309 @  (Meta Ob -> LAM3 #1)
  13002. 56331 :: NS:w3+M
  13003. 56331 @  Meta + (3GETLAM, if num=0 then no add, else SWAP and M+)
  13004. 56359 :: NS:w3-M
  13005. 56368 :: DROPMNEG
  13006. 56390 :: NS:w3*M
  13007. 563B3 :: DROPMNEG
  13008. 563DB :: NS:w3/M
  13009. 563F4 :: pshmeta1top&M1stINV?ra*/
  13010. 563F4 @  (Meta<INV> Ob -> Ob&Meta<*>,  Meta Ob -> Ob&Meta</>
  13011. 5642B :: w30>0/xnsgeneral
  13012. 5643A :: NS:DROPdrop%0#1
  13013. 5643A @  (Meta Ob -> %0 #1)
  13014. 5645D :: NS:M^w3
  13015. 5645D @  (3LAM = %) (Meta -> Meta')
  13016. 5646C :: DROPM^w3num0
  13017. 5646C @  (3LAM = %0 or C%0) (Meta -> %1/C%1 #1)
  13018. 564B7 :: DROPMINV
  13019. 564D0 :: DROPM^num2
  13020. 564D0 @  (3LAM = %2 or C%2) (Meta -> Meta')
  13021. 564F3 ::
  13022. 56543 :: NS:M+w3
  13023. 56566 :: NS:M-w3
  13024. 56589 :: NS:M*w3
  13025. 565AC :: DROPMNEG
  13026. 565CF :: NS:M/w3
  13027. 565E8 :: DROPMNEG
  13028. 5660B ::
  13029. 5662E :: NumALGINTEGRAL
  13030. 5662E @  Numeric Integral (4:sym 3:ALG_var 2:low 1:hi)
  13031. 56683 :: NumUmUmALGINTEGRAL
  13032. 56683 @  Numeric Integral (4:sym 3:ALG_var 2:low_Unit 1:hi_Unit)
  13033. 566A6 :: Num%%ALGINTEGRAL
  13034. 566A6 @  Numeric Integral (4:sym 3:ALG_var 2:%low 1:%hi)
  13035. 566BF ::
  13036. 566D8 :: CARCOMPIDBIND
  13037. 566D8 @  Binds CARCOMP (ID) to ID>LAM (same name)
  13038. 5670A ::
  13039. 5670F :: NS:MId>dvar
  13040. 5670F @  Changes all IDs that match LAM_'dvar to LAM_'dvar (#0 Meta -> Meta)
  13041. 5676E :: TENGETLAMPAIRDROP1&3&4
  13042. 567B9 ::
  13043. 56859 g' NS:ID_IERR
  13044. 56872 ::
  13045. 568AE :: DROPDUPSTOLAM_'nm
  13046. 568D1 ::
  13047. 568EA ::
  13048. 56912 :: NumALGINTEGRAL
  13049. 56912 @  Numeric Integral (4:sym 3:ALG_var 2:low(%,Unit,sym) 1:hi(%,Unit,sym))
  13050. 56949 :: NS:SYMSUM
  13051. 56949 @  Internal Sigma (4:sym 3:sym 2:sym 1:Any)
  13052. 5694E ::
  13053. 56971 {} LAM{'sumexpr'sumvar}
  13054. 56976 l' LAM_'sumexpr
  13055. 5698D l' LAM_'sumvar
  13056. 569B1 ::
  13057. 569D4 ::
  13058. 56A06 :: NS:SYM%SUM
  13059. 56A06 @  Internal Sigma (4:sym 3:sym 2:% 1:Any)
  13060. 56A10 ::
  13061. 56A33 ::
  13062. 56A4C :: NS:%SYMSUM
  13063. 56A4C @  Internal Sigma (4:sym 3:% 2:sym 1:Any)
  13064. 56A56 ::
  13065. 56A79 ::
  13066. 56A9C ::
  13067. 56AC9 :: NS:%%SUM
  13068. 56AC9 @  Internal Sigma (4:sym 3:% 2:% 1:Any)
  13069. 56AFB :: NS:4DROP%0
  13070. 56B87 #  NS:r_DER*
  13071. 56B91 #  NS:r_DER+
  13072. 56B9B #  NS:r_DER-
  13073. 56BA5 #  NS:r_DER/
  13074. 56BAF ::
  13075. 56BCD {} {%2_x^_x/}
  13076. 56BF5 ::
  13077. 56C13 #  NS:r_DER=
  13078. 56C1D #  NS:r_DERABS
  13079. 56C27 :: NS:DRPaddt:SYMBN
  13080. 56C27 @  (Meta1 Any -> ALG_Meta1&Ob) (Ob next in this instr. stream)
  13081. 56C40 #  NS:r_DERACOS
  13082. 56C4A #  NS:r_DERACOSH
  13083. 56C54 #  NS:r_DERALOG
  13084. 56C5E #  NS:r_DERARG
  13085. 56C68 #  NS:r_DERASIN
  13086. 56C72 #  NS:r_DERASINH
  13087. 56C7C #  NS:r_DERATAN
  13088. 56C86 #  NS:r_DERATANH
  13089. 56C90 :: NS:DERNEG
  13090. 56CAE :: NS:DERCONJ
  13091. 56CCC #  NS:r_DERCOS
  13092. 56CD6 #  NS:r_DERCOSH
  13093. 56CE0 #  NS:r_DEREXP
  13094. 56CE0 #  NS:r_DEREXPM1
  13095. 56CEA #  NS:r_DERINV
  13096. 56CF4 #  NS:r_DERLN
  13097. 56CFE #  NS:r_DERLNP1
  13098. 56D08 #  NS:r_DERLOG
  13099. 56D12 :: DROP%0
  13100. 56D26 #  NS:r_DERIFTE
  13101. 56D30 #  NS:r_DERSIN
  13102. 56D3A #  NS:r_DERSINH
  13103. 56D44 #  NS:r_DERSQ
  13104. 56D4E #  NS:r_DERSQRT
  13105. 56D58 #  NS:r_DERTAN
  13106. 56D62 #  NS:r_DERTANH
  13107. 56D6C #  NS:r_DER^
  13108. 56D76 :: EVAL:7C303
  13109. 56D7B #  <7C303h>
  13110. 56D94 :: EVAL:7C358
  13111. 56D99 #  <7C358h>
  13112. 56DB2 :: AddPi&MakeDer
  13113. 56DDA :: AddIPi&MakeDer
  13114. 56E02 :: MakeMetaDERABND
  13115. 56E16 :: NS:ABNDSYMBN
  13116. 56E2A :: &AngPIFac
  13117. 56E43 {} {xPI_%180_x/_x*}
  13118. 56E61 {} {xPI_%200_x/_x*}
  13119. 56E89 :: &AngInvPIFac
  13120. 56EA2 {} {%180_xPI_x/_x*}
  13121. 56EC0 {} {%200_xPI_x/_x*}
  13122. 56EE8 :: LAM_'dvBIND
  13123. 56EFC {} LAM_{'dv}
  13124. 56F0B l' LAM_'dv
  13125. 56F18 :: MakeMetaDer
  13126. 56F36 #  NS:r_DERDER
  13127. 56F40 :: DERFCNAPPLY
  13128. 56F8B :: XYZW>YZ+#1WX
  13129. 56FB8 ::
  13130. 56FCC ::
  13131. 57026 ::
  13132. 570B7 ::
  13133. 570FD ::
  13134. 571B1 ::
  13135. 571C5 ::
  13136. 571CF :: tokESCSWAP&$
  13137. 571F2 {} LAM{'dv'op'nm}
  13138. 5720B l' LAM_'nm
  13139. 57218 l' LAM_'op
  13140. 57225 :: NAME>$
  13141. 57243 :: dvBINDSplitMNoSyms?case
  13142. 57266 :: dvBINDMDUP
  13143. 5727A #  NS:r_DERWHERE
  13144. 57284 #  NS:r_DERINTG
  13145. 5728E #  NS:r_DERSUM
  13146. 57298 #  NS:r_DERAPPLY
  13147. 572A2 :: NS:SYMISOL
  13148. 572A2 @  Internal ISOL (2:sym 1:ID)
  13149. 572A7 :: NS:ISOL.1
  13150. 572A7 @  (sym ID -> sym ID Meta T/F) (Rstack is popped if RINVers got it)
  13151. 57333 :: NS:StartISOL
  13152. 57351 :: 3DROPTRUE
  13153. 573AB :: IsolApplyChk
  13154. 573EC :: 4ROLLDROPROT#1-UNROT
  13155. 57414 :: NS:2Drp2dropFls
  13156. 57414 @  (Meta1 Meta2 Ob1 Ob2 -> FALSE)
  13157. 57428 :: NS:Drp2dropFls
  13158. 57428 @  (Meta1 Meta2 Ob -> FALSE)
  13159. 57441 :: NS:addtpsh
  13160. 57441 @  (Meta1 Meta2 Ob -> Meta2&Ob Meta1)
  13161. 57455 #  NS:r_RINV+
  13162. 5745F #  NS:r_RINV=
  13163. 5745F #  NS:r_RINV-
  13164. 57469 #  NS:r_RINV*
  13165. 57473 #  NS:r_RINV/
  13166. 5747D #  NS:r_RINV^
  13167. 57487 :: RclData7B7EB&EVAL
  13168. 5748C #  <7B7EBh>
  13169. 574A5 :: NS:RINVNEG
  13170. 574B9 :: NS:RINVINV
  13171. 574CD #  NS:r_RINVEXP
  13172. 574D7 :: NS:RINVLN
  13173. 574EB #  NS:r_RINVSIN
  13174. 574F5 #  NS:r_RINVCOS
  13175. 574FF #  NS:r_RINVTAN
  13176. 57509 #  NS:r_RINVSINH
  13177. 57513 #  NS:r_RINVCOSH
  13178. 5751D #  NS:r_RINVTANH
  13179. 57527 :: NS:RINVASIN
  13180. 5753B :: NS:RINVACOS
  13181. 5754F :: NS:RINVATAN
  13182. 57563 :: NS:RINVASINH
  13183. 57577 :: NS:RINVACOSH
  13184. 5758B :: NS:RINVATANH
  13185. 5759F :: NS:RINVSQ
  13186. 575BD :: NS:RINVSQRT
  13187. 575D1 :: NS:RINVLOG
  13188. 575E5 :: NS:RINVLNP1
  13189. 575F9 #  r_RINVALOG
  13190. 57603 :: NS:RINVCONJ
  13191. 57617 #  <7BA16h>
  13192. 57621 :: NS:ContISOL
  13193. 57644 :: addtpshaddt:PrSolFlag?ITContIsol
  13194. 5766C :: addtpshCOLAaddt:ContIsol
  13195. 5768A :: NS:ObInMeta?
  13196. 5768A @  (Meta Ob -> Meta Ob True/False) True if Ob is EQUAL to some ob in Meta
  13197. 576CB :: NS:DROPCOLATRUE
  13198. 576DF :: NS:DROPCOLAFALSE
  13199. 576F3 :: PIiNiLamAdd
  13200. 576F8 {} {xPI_xi_x*}
  13201. 5772A :: 2PIiNiLamAdd
  13202. 5772F {} {%2_xPI_x*_xi_x*}
  13203. 5776B :: GetAngle2PIFacNiLam
  13204. 5777A :: GetRad2PIFacNiLam
  13205. 577D4 :: GetAnglePIFacNiLam
  13206. 577E3 :: GetRadPIFacNiLam
  13207. 5782E ::
  13208. 5786A :: NsLam*M
  13209. 57888 :: NS:top&NEG?-+
  13210. 57888 @  (Meta1 Meta2&NEG -> Meta1&Meta2&-, Meta1 Meta2 -> Meta1&Meta2&+)
  13211. 5789C :: TRUELAM_'niEVAL
  13212. 578B5 :: TRUELAM_'nsEVAL
  13213. 578CE {} LAM{'ni'ns}
  13214. 578E2 l' LAM_'ni
  13215. 578EF l' LAM_'ns
  13216. 578FC :: BINDISOLCodes
  13217. 5792E CD IsolCodn0
  13218. 5793F g' ID_n0
  13219. 5794C CD IsolCods0
  13220. 5795D g' ID_s0
  13221. 5796A mc IsolCod
  13222. 57A0C :: NS:SYMEXPAN
  13223. 57A0C @  Internal EXPAN (1:%/C%/sym)
  13224. 57A48 :: NS:MEXPAN
  13225. 57A48 @  Do 2 pshzer commands first (#0 #0 Meta -> Meta)
  13226. 57A61 :: COLAtop&pshtop&
  13227. 57A61 @  (Meta1 Meta2 Meta3 Meta2&Meta3&Meta1)
  13228. 57AA2 :: MEXPAN.1
  13229. 57AA2 @  (Meta -> Meta)
  13230. 57AB6 :: MSQexpan
  13231. 57B01 :: M1stAPPLY?expan
  13232. 57B15 :: MAPPLYexpan
  13233. 57B33 :: NS:top&pullONE
  13234. 57B33 @  (Meta1 Meta2&Ob -> Meta1&Meta2 Ob #1)
  13235. 57B4C P  M1stINV/NEG?COLAtop&pullONE
  13236. 57B63 :: M1st^?expan
  13237. 57B63 @  (Meta<%><^> -> Meta&Meta<%-1><^><*> (or other way for negative %) )
  13238. 57B77 :: ^expan
  13239. 57B9F :: DROPCOLAmdrop%1ONE
  13240. 57B9F @  (Meta Ob -> %1 #1)
  13241. 57BC2 :: DROPCOLAM1st2ndDROP
  13242. 57BC2 @  (Meta&Ob1&Ob2 Ob3 -> Meta)
  13243. 57BDB :: m2^?COLA^expan
  13244. 57C3A :: m2^expan
  13245. 57C71 :: sum^2expan
  13246. 57C71 @  (Meta1&Meta2&<+/->  ->  expanded Meta)
  13247. 57CDF :: M^2
  13248. 57CDF @  (Meta -> Meta<%2><^>)
  13249. 57CF8 P  POS?ABS1-INT?
  13250. 57CF8 @  If % is integer, -> %>0? SGN(%)*(ABS(%)-1) TRUE, else FALSE
  13251. 57D90 :: HP:SYMCOLCT
  13252. 57D90 @  Internal COLCT (1:%/C%/sym)
  13253. 57DA4 :: SYMCOLCT.1
  13254. 57DD1 ::
  13255. 57E08 :: rev+*colct
  13256. 57E08 @  Meta is reversed & + and * are changed back to /,NEG etc
  13257. 57E2B ::
  13258. 57E71 :: rev*colct
  13259. 57EA3 {} LAM{'*s}
  13260. 57EF3 l' LAM_'*s
  13261. 57F00 ::
  13262. 57F1E ::
  13263. 57F4B ::
  13264. 57F64 :: pshpshzerpshargmetaUNROT
  13265. 57F6E ::
  13266. 57F96 ::
  13267. 57FC3 ::
  13268. 57FFA ::
  13269. 58045 ::
  13270. 58081 :: DECRLAM_'*s
  13271. 580A4 :: DECRLAM_'+s
  13272. 580C7 :: rev+colct
  13273. 580F9 {} LAM{'+s}
  13274. 58149 l' LAM_'+s
  13275. 58156 ::
  13276. 58174 ::
  13277. 5819C ::
  13278. 581A6 ::
  13279. 581CE ::
  13280. 581FB ::
  13281. 58232 ::
  13282. 5827D ::
  13283. 582BE ::
  13284. 582E6 :: MDROPREV3+^
  13285. 582E6 @  (Meta4 Meta3 Meta2 Meta1 -> Meta2&Meta3&Meta4<+><^>)
  13286. 58313 ::
  13287. 58322 ::
  13288. 5833B ::
  13289. 58359 ::
  13290. 5837C :: NS:top&addt^
  13291. 5837C @  (Meta2 Meta1 -> Meta2&Meta1<^>)
  13292. 583C7 ::
  13293. 583EF ::
  13294. 583FE ::
  13295. 58421 ::
  13296. 5843F :: NS:2DROPpullDROP
  13297. 5846C :: 2DROPpullDROP
  13298. 5848A :: MDROPUNROT&+SWAP&
  13299. 5848A @  (Meta4 Meta3 Meta2 Meta1 -> Meta3&Meta4<+>&Meta2)
  13300. 584B2 :: NS:MEQU?
  13301. 584B2 @  (Meta1 Meta2 -> Meta1 Meta2 T/F)
  13302. 58511 ::
  13303. 58525 ::
  13304. 5853E :: OVER#<
  13305. 5857A ::
  13306. 585A7 P
  13307. 58620 :: MSplit^
  13308. 58620 @  (Meta1&Meta2<^> -> Meta2 Meta1) (Meta1&Meta2 -> 1 #1 Meta1&Meta2)
  13309. 5863E ::
  13310. 58661 ::
  13311. 5868E ::
  13312. 586D9 ::
  13313. 58715 P  NS:NoIdsInMeta?
  13314. 58715 @  (Meta -> Meta T/F) True,if M has no IDs/LAMs nor ::s starting with CK0
  13315. 587AA :: replw*+^rev
  13316. 587AA @  All 'lone' terms get a factor and all -,/,SQ etc cmds are replaced
  13317. 587AA @  with +,* and ^ (#0 Meta -> Reversed Meta)
  13318. 587FF :: factor-AGAIN
  13319. 58827 :: factor/AGAIN
  13320. 58854 :: factorNEGAGAIN
  13321. 588A4 :: M1stDROPAGAIN
  13322. 588B8 :: factorNEG+AGAIN
  13323. 588E5 :: factorNEG-AGAIN
  13324. 58912 :: factorINVAGAIN
  13325. 58962 ::
  13326. 58999 ::
  13327. 589CB ::
  13328. 589E9 :: factorSQAGAIN
  13329. 58A0C :: colaDROP
  13330. 58A20 :: NS:SMCOLCT
  13331. 58A61 ::
  13332. 58A93 ::
  13333. 58AAC ::
  13334. 58ADE P  M-1^*?case
  13335. 58ADE @  (Meta<%-1><^><*> ? -> case
  13336. 58B26 ::
  13337. 58B58 ::
  13338. 58B76 ::
  13339. 58B9E ::
  13340. 58BA3 ::
  13341. 58BDA ::
  13342. 58C02 P  NS:count+
  13343. 58C02 @  Example: Meta<+><+><+> -> Meta #3)
  13344. 58C0E P  NS:count*
  13345. 58C8F ::
  13346. 58CB7 ::
  13347. 58CDA :: NS:False1LAMRsDO
  13348. 58CE4 :: NS:1LAMRsDO
  13349. 58CEE :: NS:RsDO
  13350. 58D25 :: NS:RsDoArg
  13351. 58D75 :: HP:SYMSHOW
  13352. 58D75 @  Internal SHOW (2:sym 1:ID/LAM)
  13353. 58DA7 :: NS:MSHOW
  13354. 58DB1 {} LAM{'fl}
  13355. 58DB6 l' LAM_'fl
  13356. 58DEB :: ObFormDataGet
  13357. 58DEB @  If not seco, FALSE, else FormDataGet
  13358. 58E2C :: #0=UNTIL_DROP1GETABND
  13359. 58E45 :: MAPPLYSHOW
  13360. 58E95 ::
  13361. 58EEF ::
  13362. 58F12 :: MIDSHOW
  13363. 58F35 ::
  13364. 58F71 ::
  13365. 58FA8 ::
  13366. 58FC6 ::
  13367. 58FD5 ::
  13368. 59020 :: MReplSHOW
  13369. 5903E ::
  13370. 590D4 ::
  13371. 5910B :: SHOWLS
  13372. 5910B @  Internal SHOW (2:sym 1:{}) (Doesn't check {} for being IDs only)
  13373. 59110 {} LAM{'nmls}
  13374. 59115 l' LAM_'nmls
  13375. 59149 ::
  13376. 5918A ::
  13377. 591AD :: NS:SYMQUAD
  13378. 591AD @  Internal QUAD (2:sym 1:ID)
  13379. 591C1 ::
  13380. 591E9 ::
  13381. 59220 ::
  13382. 5922F ::
  13383. 59261 ::
  13384. 592B6 ::
  13385. 592BB {} LAM{'c'b'a}
  13386. 592C0 l' LAM_'c
  13387. 592CB l' LAM_'b
  13388. 592D6 l' LAM_'a
  13389. 592FF '' ALG_s1
  13390. 59304 g' ID_s1
  13391. 59373 ::
  13392. 59387 ::
  13393. 5939B ::
  13394. 593AF ::
  13395. 593FF ::
  13396. 594AE ::
  13397. 59503 :: 
  13398. 59512 {} LAM{'n'prog}
  13399. 59517 l' LAM_'n
  13400. 59522 l' LAM_'prog
  13401. 5956F ::
  13402. 595B0 ::
  13403. 595BA ::
  13404. 595DD :: NS:SYMTAYLR
  13405. 595DD @  Internal TAYLR (3:sym 2:ID 1:%)
  13406. 595F1 ::
  13407. 59628 :: DROPABND
  13408. 59641 {} LAM{'n}
  13409. 59646 l' LAM_'n
  13410. 596B0 {} RCOLCTkey
  13411. 596B5 $  "COLCT"
  13412. 596C9 :: DoRCOLCTkey
  13413. 596D3 :: MRCOLCT
  13414. 596DD xl XLIB_240_92
  13415. 596FC {} DNEGkey
  13416. 59701 $  "DNEG"
  13417. 59713 :: DoDNEGkey
  13418. 5971D ::
  13419. 5974A {} DINVkey
  13420. 5974F $  "DINV"
  13421. 59761 :: DoDINVkey
  13422. 5976B ::
  13423. 59798 {} *1key
  13424. 5979D $  "*1"
  13425. 597AB :: Do*1key
  13426. 597B5 ::
  13427. 5981E {} ^1key
  13428. 59823 $  "^1"
  13429. 59831 :: Do^1key
  13430. 5983B ::
  13431. 59868 {} /1key
  13432. 5986D $  "/1"
  13433. 5987B :: Do/1key
  13434. 59885 ::
  13435. 598EE {} +1-1key
  13436. 598F3 $  "+1-1"
  13437. 59905 :: Do+1-1key
  13438. 5990F ::
  13439. 59919 {} {%1_x+_%1_x-}
  13440. 59950 {} <-->key
  13441. 59955 $  "<-->"
  13442. 59963 :: Do<-->key
  13443. 5997C {} <-Akey
  13444. 59981 $  "<-A"
  13445. 5998F {} <-Akeyops
  13446. 59994 :: Do<-Akey
  13447. 599AD :: Do<-AkeyRS
  13448. 599CB {} A->key
  13449. 599D0 $  "A->"
  13450. 599DE {} A->keyops
  13451. 599E3 :: DoA->key
  13452. 599FC :: DoA->keyRS
  13453. 59A1A {} <-Tkey
  13454. 59A1F $  "<-T"
  13455. 59A2D {} <-Tkeyops
  13456. 59A32 :: Do<-Tkey
  13457. 59A4B :: Do<-TkeyRS
  13458. 59A69 {} T->key
  13459. 59A6E $  "T->"
  13460. 59A7C {} T->keyops
  13461. 59A81 :: DoT->key
  13462. 59A9A :: DoT->keyRS
  13463. 59AB8 {} (<-key
  13464. 59ABD $  "(<-"
  13465. 59ACB {} (<-keyops
  13466. 59AD0 :: Do(<-key
  13467. 59AE9 :: Do(<-keyRS
  13468. 59B07 {} ->)key
  13469. 59B0C $  "->)"
  13470. 59B1A {} ->)keyops
  13471. 59B1F :: Do->)key
  13472. 59B38 :: Do->)keyRS
  13473. 59B56 {} (())key
  13474. 59B5B $  "(())"
  13475. 59B6D :: Do(())key
  13476. 59B86 {} AFkey
  13477. 59B8B $  "AF"
  13478. 59B99 :: DoAFkey
  13479. 59BB2 {} <-Mkey
  13480. 59BB7 $  "<-M"
  13481. 59BC5 {} <-Mkeyops
  13482. 59BCA :: Do<-Mkey
  13483. 59BE3 :: Do<-MkeyRS
  13484. 59C01 {} M->key
  13485. 59C06 $  "M->"
  13486. 59C14 {} M->keyops
  13487. 59C19 :: DoM->key
  13488. 59C32 :: DoM->keyRS
  13489. 59C50 {} -()key
  13490. 59C55 $  "-()"
  13491. 59C65 :: Do-()key
  13492. 59C7E {} 1/()key
  13493. 59C83 $  "1/()"
  13494. 59C95 :: Do1/()key
  13495. 59CAE {} E()key
  13496. 59CB3 $  "E()"
  13497. 59CC3 :: DoE()key
  13498. 59CDC {} L()key
  13499. 59CE1 $  "L()"
  13500. 59CF1 :: DoL()key
  13501. 59D0A {} L*key
  13502. 59D0F $  "L*"
  13503. 59D1D :: DoL*key
  13504. 59D36 {} E^key
  13505. 59D3B $  "E^"
  13506. 59D49 :: DoE^key
  13507. 59D62 {} ->()key
  13508. 59D67 $  "->()"
  13509. 59D77 {} ->()keyops
  13510. 59D7C :: Do->()key
  13511. 59D95 :: Do->()keyRS
  13512. 59DB3 {} <-Dkey
  13513. 59DB8 $  "<-D"
  13514. 59DC6 {} <-Dkeyops
  13515. 59DCB :: Do<-Dkey
  13516. 59DE4 :: Do<-DkeyRS
  13517. 59E02 {} D->key
  13518. 59E07 $  "D->"
  13519. 59E15 {} D->keyops
  13520. 59E1A :: DoD->key
  13521. 59E33 :: DoD->keyRS
  13522. 59E51 {} ->TRGkey
  13523. 59E56 $  "->TRG"
  13524. 59E68 :: Do->TRGkey
  13525. 59E81 {} ->()keyf
  13526. 59E81 @  ->() for CONJ,RE,IM
  13527. 59E86 $  "->()"
  13528. 59E96 {} ->()keyopsf
  13529. 59E9B :: Do->()keyf
  13530. 59EB4 :: Do->()keyfRS
  13531. 59ED2 {} ->DEFkey
  13532. 59ED7 $  "->DEF"
  13533. 59EE9 :: Do->DEFkey
  13534. 59F02 {} TRG*key
  13535. 59F07 $  "TRG*"
  13536. 59F19 :: DoTRG*key
  13537. 59F32 ::
  13538. 59F41 :: SEMI::
  13539. 59F41 @  :: RDROP ;
  13540. 59F91 :: LENSYM
  13541. 59F91 @  Internal SIZE (1:sym -> 1:%)
  13542. 59FAF :: 
  13543. 59FB9 :: NS:3pulldrop
  13544. 59FB9 @  (Meta&Ob1&Ob2&Ob3 -> Meta)
  13545. 5A01D :: HP:SWAPcompSWAP
  13546. 5A01D @  Makes Algebraic of stk2
  13547. 5A036 :: HP:uncrunch
  13548. 5A036 @  Evals next with NumFlag cleared (Resumed afterwards)
  13549. 5A054 :: uncrunchClr
  13550. 5A072 :: uncrunchSet
  13551. 5A095 ::
  13552. 5A0C2 ::
  13553. 5A0FE ::
  13554. 5A130 ::
  13555. 5A14E ::
  13556. 5A176 :: SaddtWHERE
  13557. 5A176 @  Adds WHERE to the tail of a symbolic
  13558. 5A1A3 ::
  13559. 5A1A8 #  <7DEE4h>
  13560. 5A1BC ::
  13561. 5A211 {} NS:FORMDER
  13562. 5A22A {} NS:FORMINTG
  13563. 5A243 {} NS:FORMSUM
  13564. 5A257 {} NS:FORMWHERE
  13565. 5A270 {} NS:FORMIFTE
  13566. 5A284 {} NS:FORMQUOTE
  13567. 5A298 {} NS:FORMAPPLY
  13568. 5A2B1 {} NS:FORMUNIT
  13569. 5A2C5 {} NS:FORMXROOT
  13570. 5A2D4 :: rcallxroot
  13571. 5A2F7 :: rcallder
  13572. 5A2F7 @  (Id&Meta -> Alg_Id Alg)
  13573. 5A30B :: symbnSWP1+
  13574. 5A310 :: HP:symbn
  13575. 5A333 :: rcallintg
  13576. 5A333 @  (Lowob&Hiob&Meta&Id -> Lowob Hiob Alg Alg_Id)
  13577. 5A365 :: rcallsum
  13578. 5A397 :: rcallwhere
  13579. 5A3EC :: rcallifte
  13580. 5A419 :: rcallquote
  13581. 5A432 :: rcallapply
  13582. 5A45A :: rcallunit
  13583. 5A473 :: NS:#4=
  13584. 5A487 :: ::#1=;
  13585. 5A496 :: ::DROPFALSE;
  13586. 5A4A5 :: NS:DROP#1=
  13587. 5A4B9 :: NS:DROPeven#?
  13588. 5A4B9 @  (2:#n 1:Any -> 1:T/F)  True if #n = #0/#2/#4/#6....
  13589. 5A4E6 :: DROPROTSWAP'rpnDER
  13590. 5A504 :: DROP'rpnINTEGRAL
  13591. 5A518 :: DROP#1-{}NTWO'rpnWHERE
  13592. 5A53B :: DROP#1-{}NTWO'xAPPLY
  13593. 5A55E P  NS:DUPFPLEN
  13594. 5A55E @  Length of the fractional part (% -> #n)
  13595. 5A5C9 ::
  13596. 5A60F {} LAM{'piflag}
  13597. 5A60F @  { LAM_'piflag }
  13598. 5A614 l' LAM_'piflag
  13599. 5A62E :: >Qmeta
  13600. 5A62E @  Internal ->Q (2:#digits 1:% -> meta)
  13601. 5A63D ::
  13602. 5A651 ::
  13603. 5A660 {} LAM{'d'r}
  13604. 5A665 l' LAM_'d
  13605. 5A670 l' LAM_'r
  13606. 5A70C ::
  13607. 5A72A ::
  13608. 5A734 :: NS:SWAPDROPONE
  13609. 5A75C {} LAM{'d'R'est'X'T}
  13610. 5A761 l' LAM_'d
  13611. 5A76C l' LAM_'R
  13612. 5A777 l' LAM_'est
  13613. 5A786 l' LAM_'X
  13614. 5A791 l' LAM_'T
  13615. 5A7E2 ::
  13616. 5A84B :: 2DROP1GETLAM%INV
  13617. 5A8A5 P  XPON#<=case
  13618. 5A8A5 @  (% #dd -> %)
  13619. 5A8E8 P  %<=#B?
  13620. 5A8E8 @  (% #dd -> T/F)
  13621. 5A952 P  NS:RCLFIXACC
  13622. 5A952 @  Rcl current accuracy ( -> %0.0...1 )
  13623. 5A983 P  NS:RCLFIX
  13624. 5A983 @  Recall current display accuracy (-> 1:#digits)
  13625. 5A999 mc RCLFIXtoA.A
  13626. 5A9F5 :: %>Q?
  13627. 5A9F5 @  Internal ->Q (1:% & 'piflag bound (1LAM) to mode (True = ->QPI))
  13628. 5AA13 :: C%>Q?
  13629. 5AA5E :: ALG>Q?
  13630. 5AA77 :: num>Q?
  13631. 5AA77 @  ->Q (1:C% or % -> 1:C% % or ALG)
  13632. 5AAC7 :: NS:SYMINTEG
  13633. 5AAC7 @  Symbolic INTEGRAL (4:low 3:hi 2:sym 1:ALG_var)
  13634. 5AAE0 {} LAM{'bnds'dvar}
  13635. 5AAE5 l' LAM_'bnds
  13636. 5AAE5 @  (Integration bounds list storage)
  13637. 5AB32 ::
  13638. 5AB73 {} {#3_xWHERE}
  13639. 5AB91 {} {#3_xWHERE}
  13640. 5ABC8 ::
  13641. 5ABD7 ::
  13642. 5AC86 :: NS:Mdvar>1LAM
  13643. 5AC9A :: dvarEQ?Drp1GETLAM
  13644. 5ACC7 :: FORCE+*
  13645. 5ACD6 :: NS:M1st+?Drp
  13646. 5ACD6 @  (Meta&+ -> Meta, Meta -> Meta)
  13647. 5AD08 :: NS:dvarsInMeta?
  13648. 5AD4E :: dvarEQ?SKIP
  13649. 5AD6C :: 
  13650. 5AD80 ::
  13651. 5AD9E ::
  13652. 5ADD0 ::
  13653. 5ADEE ::
  13654. 5AE7F :: #4<>?ITFalse1PUTLAM
  13655. 5AEA2 ::
  13656. 5AEB1 ::
  13657. 5AF01 ::
  13658. 5AF42 ::
  13659. 5AF51 :: FALSE1PUTLAM
  13660. 5AF6F :: 
  13661. 5AFAB :: ForcedINTG??????????
  13662. 5AFF1 :: NS:DUP1PUTLAM
  13663. 5B050 :: 
  13664. 5B064 ::
  13665. 5B09B ::
  13666. 5B0CD :: 
  13667. 5B0D2 ::
  13668. 5B0FA ::
  13669. 5B131 ::
  13670. 5B140 ::
  13671. 5B154 {} {%2_x^_%2_x^}
  13672. 5B195 ::
  13673. 5B19F ::
  13674. 5B1AE ::
  13675. 5B1F4 ::
  13676. 5B208 ::
  13677. 5B28A ::
  13678. 5B2D0 ::
  13679. 5B311 ::
  13680. 5B32F :: #2=?SEMIFALSERDROP
  13681. 5B34D :: 
  13682. 5B352 ::
  13683. 5B375 :: RADinte&do
  13684. 5B389 :: 
  13685. 5B3D9 :: ANGinte&do
  13686. 5B433 :: ANGinte&do2
  13687. 5B483 :: NRADinte&6ROLLSWAP
  13688. 5B4A6 :: NRADinte&
  13689. 5B4A6 @  Adds *180/PI or *200/PI to Meta according to DEG? (Meta -> Meta')
  13690. 5B4B5 {} {%180_xPI_x/_x*}
  13691. 5B4D3 {} {%200_xPI_x/_x*}
  13692. 5B4FB ::
  13693. 5B500 {} {LAM_'dvar_LAM_&1 xDER x/}
  13694. 5B546 ::
  13695. 5B596 ::
  13696. 5B5F0 ::
  13697. 5B613 :: NDROP2SKIPFALSE
  13698. 5B659 :: FORCE*
  13699. 5B65E ::
  13700. 5B668 :: M1st*?MD->
  13701. 5B69F ::
  13702. 5B6A4 ::
  13703. 5B6F4 ::
  13704. 5B717 ::
  13705. 5B726 :: FORCE/INV>*
  13706. 5B758 :: FORCE/>*
  13707. 5B771 :: FORCEINV>*
  13708. 5B794 :: FORCE/INV>*
  13709. 5B839 :: MINVaddt*over&MUNROTover&MINV
  13710. 5B861 :: NS:top&pshtop&
  13711. 5B861 @  (Meta3 Meta2 Meta1 -> Meta2&Meta1&Meta3)
  13712. 5B875 :: INTGINTG
  13713. 5B906 :: INTG^
  13714. 5B93D {}
  13715. 5B947 {}
  13716. 5B94C '' ALG_&1^-1
  13717. 5B96F {}
  13718. 5B974 '' ALG_&1^(-1,0)
  13719. 5B997 {}
  13720. 5B99C '' ALG_&1^&2
  13721. 5B9CE '' ALG_LN(&1)/der'dvar(&1)
  13722. 5B9F6 '' ALG_&1^(&2+1)/((&2+1)*der'dvar(&1))
  13723. 5BA41 ::
  13724. 5BA46 {}
  13725. 5BA50 {}
  13726. 5BA55 '' ALG_&1^&2
  13727. 5BA91 ::
  13728. 5BAB4 '' ALG_IFTE(&2==-1,LN(&1)/der'dvar(&1),&1^(&2+1)/((&2+1)*der'dvar(&1)))
  13729. 5BB31 '' ALG_1^&2/(LN(&1)*der'dvar(&2))
  13730. 5BB6D :: INTGEXP
  13731. 5BB77 {}
  13732. 5BB81 {}
  13733. 5BB86 '' ALG_EXP(&1)
  13734. 5BB9F ::
  13735. 5BBAE '' ALG_EXP(&1)
  13736. 5BBE5 :: MNEG
  13737. 5BBE5 @  Negates Meta object
  13738. 5BC03 :: MNEG1stArg
  13739. 5BC03 @  (Meta1&Meta2<op> -> Meta'&Meta2<op>) Where Meta'=metaNEG(Meta1)
  13740. 5BC21 :: MINV1stArg
  13741. 5BC3F :: MINV
  13742. 5BC5D :: NS:NEG?-+
  13743. 5BC5D @  (Meta&NEG -> Meta&-, Meta -> Meta&+)
  13744. 5BC67 :: NS:addt-
  13745. 5BC8A :: NS:NEG?+-
  13746. 5BC8A @  (Meta&NEG -> Meta&+, Meta -> Meta&-)
  13747. 5BC94 :: NS:addt+
  13748. 5BCB7 :: NS:INV?/*
  13749. 5BCB7 @  (Meta&INV -> Meta&/, Meta -> Meta&*)
  13750. 5BCC1 :: NS:repl/
  13751. 5BCE4 :: NS:INV?*/
  13752. 5BCE4 @  (Meta&INV -> Meta&*, Meta -> Meta&/)
  13753. 5BCEE :: NS:repl*
  13754. 5BD11 :: addtailNEG
  13755. 5BD25 :: addtailINV
  13756. 5BD3E :: NS:drp1NEG?-+
  13757. 5BD3E @  (Meta&NEG&Ob -> Meta&-, Meta&Ob -> Meta&+)
  13758. 5BD57 :: NS:drp1NEG?+-
  13759. 5BD70 :: NS:drp1INV?/*
  13760. 5BD89 :: NS:drp1INV?*/
  13761. 5BDA2 rf r_x+
  13762. 5BDA7 rf r_x-
  13763. 5BDAC rf r_x*
  13764. 5BDB1 rf r_x/
  13765. 5BDB6 rf r_x=
  13766. 5BDBB rf r_xSIN
  13767. 5BDC0 rf r_xCOS
  13768. 5BDC5 rf r_xTAN
  13769. 5BDCA rf r_xSINH
  13770. 5BDCF rf r_xCOSH
  13771. 5BDD4 rf r_xTANH
  13772. 5BDD9 rf r_xASIN
  13773. 5BDDE rf r_xACOS
  13774. 5BDE3 rf r_xATAN
  13775. 5BDE8 rf r_xASINH
  13776. 5BDED rf r_xACOSH
  13777. 5BDF2 rf r_xATANH
  13778. 5BDF7 rf r_xCONJ
  13779. 5BDFC rf r_xRE
  13780. 5BE01 rf r_xIM
  13781. 5BE06 rf r_x+
  13782. 5BE0B rf r_x-
  13783. 5BE10 rf r_x*
  13784. 5BE15 rf r_x/
  13785. 5BE1A rf r_xNEG
  13786. 5BE1F rf r_xINV
  13787. 5BE24 rf r_xEXP
  13788. 5BE29 rf r_xSQ
  13789. 5BE2E rf r_x+
  13790. 5BE33 rf r_x-
  13791. 5BE38 rf r_xSIN
  13792. 5BE3D rf r_xCOS
  13793. 5BE42 rf r_xTAN
  13794. 5BE47 rf r_xSINH
  13795. 5BE4C rf r_xCOSH
  13796. 5BE51 rf r_xTANH
  13797. 5BE56 P  INV*COLCT?SEMI
  13798. 5BE56 @  (A INV B INV * -> A B * INV, A B INV * -> A B /, A INV B * -> B A /)
  13799. 5BE81 P  M<-->
  13800. 5BE81 @  All these routines use the dispatching routine at 5F6F9
  13801. 5BE81 @  <--> command in RULES menu (Meta -> Meta')
  13802. 5BECE P  M<-A
  13803. 5BF53 P  MA->
  13804. 5BFD8 P  MD->
  13805. 5C0B9 P  M<-D
  13806. 5C102 P  M<-Dnot^
  13807. 5C137 P  M->()
  13808. 5C204 P  M1/()
  13809. 5C261 P  M-()
  13810. 5C2CE P  ME^
  13811. 5C31B P  ME()
  13812. 5C348 P  ML*
  13813. 5C375 P  ML()
  13814. 5C3C2 P  M<-M
  13815. 5C4CF P  MM->
  13816. 5C53C P  MAF
  13817. 5C589 P  M(<-
  13818. 5C5D6 P  M->)
  13819. 5C623 P  M(())
  13820. 5C670 P  M->TRG
  13821. 5C68D P  MT->
  13822. 5C6D9 P  M<-T
  13823. 5C73D P  M->()f
  13824. 5C73D @  ->() for CONJ,RE,IM
  13825. 5C845 P  M->DEF
  13826. 5C91D P  MTRG*
  13827. 5C9F1 :: null::
  13828. 5C9FB :: o<-A
  13829. 5C9FB @  <-A with M++, M-+, M**, M/*
  13830. 5CA0F :: 
  13831. 5CA32 :: oA->
  13832. 5CA32 @  A-> with M+o+, M-o+, M*o*, M/o*
  13833. 5CA50 :: oD->
  13834. 5CA50 @  D-> with M+*, M-*
  13835. 5CAA5 :: o<-D
  13836. 5CAA5 @  <-D with M+o*, M-o*, M+o/, M-o/, M*o/, M*o^, M/o^
  13837. 5CAE1 :: Mp(MpM)>(MpM)pM
  13838. 5CAFF ::
  13839. 5CB4F ::
  13840. 5CB7C ::
  13841. 5CBD6 ::
  13842. 5CBF9 :: NS:opzerpsharg&
  13843. 5CBF9 @  (Meta1&Meta2&op -> Meta2&Meta1)
  13844. 5CC12 :: NS:2pulldrop
  13845. 5CC12 @  (Meta&Ob1&Ob2 -> Meta)
  13846. 5CC26 ::
  13847. 5CC3F ::
  13848. 5CC58 :: M+NEG->()
  13849. 5CC71 :: M-NEG->()
  13850. 5CC8A ::
  13851. 5CCA3 ::
  13852. 5CCBC :: M*INV->()
  13853. 5CCD5 :: M/INV->()
  13854. 5CCEE :: NS:pshzerarg2ov&
  13855. 5CCEE @  (Meta1 Meta2&Meta3<no> -> Meta1&Meta2 Meta3)
  13856. 5CD02 :: addtail+
  13857. 5CD02 @  (Meta -> Meta&+) example: A B + #3 -> A B + + #4
  13858. 5CD16 :: NS:addt*
  13859. 5CD2A :: NS:addtNEG
  13860. 5CD3E :: NS:addtINV
  13861. 5CD52 :: NS:EVALCOLASKP:
  13862. 5CD5C :: NS:EVALCOLASKP
  13863. 5CD7A ::
  13864. 5CD89 ::
  13865. 5CDA7 :: 1GETLAMCOLA_EVAL
  13866. 5CDE3 :: M<-Dm
  13867. 5CDE3 @  <-D with right shift = until no changes happen
  13868. 5CDF2 ::
  13869. 5CE15 :: M<-Am
  13870. 5CE24 ::
  13871. 5CE4C :: MA->m
  13872. 5CE5B ::
  13873. 5CE83 :: M->)m
  13874. 5CE92 ::
  13875. 5CEBA :: M(<-m
  13876. 5CEC9 ::
  13877. 5CEF1 :: MD->m
  13878. 5CF00 ::
  13879. 5CF23 :: MT->m
  13880. 5CF32 ::
  13881. 5CF5A :: M<-Tm
  13882. 5CF69 ::
  13883. 5CF91 :: M->()m
  13884. 5CFA0 ::
  13885. 5CFC3 :: M->()fm
  13886. 5CFC3 @  ->()m for CONJ,RE,IM
  13887. 5CFD2 ::
  13888. 5CFF5 :: M<-Mm
  13889. 5D009 :: MM->m
  13890. 5D01D ::
  13891. 5D036 :: 1GETLAMEVAL
  13892. 5D068 ::
  13893. 5D0C2 :: FORCE+
  13894. 5D0EA :: FORCE->+
  13895. 5D10D :: FORCENEG>+
  13896. 5D121 :: FORCE+NEG>+
  13897. 5D144 :: FORCE-NEG>+
  13898. 5D167 :: FORCE+>+
  13899. 5D18A :: MNEG+M?>M-M
  13900. 5D1B2 ::
  13901. 5D1DA ::
  13902. 5D1EE ::
  13903. 5D211 ::
  13904. 5D234 ::
  13905. 5D257 ::
  13906. 5D275 ::
  13907. 5D2A2 ::
  13908. 5D2BB xl
  13909. 5D2CB ::
  13910. 5D2D5 ::
  13911. 5D302 ::
  13912. 5D30C ::
  13913. 5D339 ::
  13914. 5D361 ::
  13915. 5D384 ::
  13916. 5D398 ::
  13917. 5D3BB ::
  13918. 5D3DE ::
  13919. 5D401 ::
  13920. 5D429 ::
  13921. 5D451 ::
  13922. 5D465 ::
  13923. 5D488 ::
  13924. 5D4AB ::
  13925. 5D4CE ::
  13926. 5D4EC ::
  13927. 5D519 ::
  13928. 5D532 xl
  13929. 5D542 ::
  13930. 5D54C ::
  13931. 5D579 ::
  13932. 5D583 ::
  13933. 5D5B0 ::
  13934. 5D62D ::
  13935. 5D664 ::
  13936. 5D673 ::
  13937. 5D678 {} LAM{'which'op1'op2}
  13938. 5D67D l' LAM_'which
  13939. 5D690 l' LAM_'op1
  13940. 5D69F l' LAM_'op2
  13941. 5D6F4 :: NS:pshpullpsh1&
  13942. 5D6F4 @  (Meta1&Ob Meta2 -> Ob&Meta2 Meta1)
  13943. 5D721 ::
  13944. 5D794 :: sT->
  13945. 5D794 @  T-> with M+, M-
  13946. 5D799 ::
  13947. 5D7A3 xl
  13948. 5D7CC ::
  13949. 5D7EF :: mT->
  13950. 5D7EF @  T-> with M*, M/
  13951. 5D7F4 ::
  13952. 5D7FE xl
  13953. 5D831 ::
  13954. 5D84A ::
  13955. 5D863 ::
  13956. 5D886 ::
  13957. 5D8C7 ::
  13958. 5D926 ::
  13959. 5D971 ::
  13960. 5D999 ::
  13961. 5D9FD ::
  13962. 5DA48 ::
  13963. 5DA75 ::
  13964. 5DAD4 ::
  13965. 5DB33 ::
  13966. 5DB56 ::
  13967. 5DB92 ::
  13968. 5DBB0 ::
  13969. 5DC0A ::
  13970. 5DC46 ::
  13971. 5DC64 ::
  13972. 5DCBE ::
  13973. 5DCEB :: r->()
  13974. 5DCEB @  ->() with M*RE
  13975. 5DCF0 xl
  13976. 5DD19 :: i->()
  13977. 5DD19 @  ->() with M*IM
  13978. 5DD1E xl
  13979. 5DD42 {} {%2_x^_x-_xSQRT_xi}
  13980. 5DD65 :: NS:2psh1&rev:
  13981. 5DD65 @  (Meta1 Meta2 -> Meta1&Ob Meta2&Ob) (Ob is next in this instr. stream)
  13982. 5DD83 :: add2tail:xi&x*
  13983. 5DD9C ::
  13984. 5DDB0 ::
  13985. 5DDF6 ::
  13986. 5DE1E {} {xPI_x/_x*}
  13987. 5DE41 :: NS:COLATRUE
  13988. 5DE55 :: NS:COLAFALSE
  13989. 5DE69 :: 
  13990. 5DE7D :: HP:reversym
  13991. 5DEAA :: DUPTYPESYMB?::
  13992. 5DEB9 :: 
  13993. 5DED2 ::
  13994. 5DEEB P  something about << -> a b << prg >> >> lams
  13995. 5DEF7 P  something about << -> a b << prg >> >> lams
  13996. 5E067 :: NS:SYMB?INNER
  13997. 5E067 @  If symbolic, INNERCOMP, else <1h>
  13998. 5E085 :: NS:CKSYMBN
  13999. 5E085 @  Meta to symbolic (Doesn't make an ALG of 2:Ob 1:#1)
  14000. 5E0A3 :: NS:XEQSYMBN
  14001. 5E0A3 @  Tries SYMBN, if error then NULLSYMB
  14002. 5E0C1 :: XEQSYMBNtrap
  14003. 5E0DA :: NS:XEQ{}N
  14004. 5E0DA @  Tries {}N, if error then NULL{}
  14005. 5E0F8 :: XEQ{}Ntrap
  14006. 5E111 :: NS:XEQ::N
  14007. 5E111 @  Tries ::N, if error then NULL::
  14008. 5E12F :: XEQ::Ntrap
  14009. 5E148 :: >COMPtrap
  14010. 5E17F ::
  14011. 5E1B1 ::
  14012. 5E1E3 P  RoomReserving,Embedded? something bout that for composites
  14013. 5E29C P  RoomReserving,Embedded? something bout that for composites
  14014. 5E2F8 :: NS:2INNERtop&
  14015. 5E2F8 @  (2:comp2 1:comp1 -> Meta2&Meta1)
  14016. 5E30C :: NS:2INNER
  14017. 5E30C @  (2:comp2 1:comp1 -> Meta2 Meta1)
  14018. 5E32A :: EXPLODEMSYMB
  14019. 5E32A @  (Obn .. Ob1 #n -> Meta) where Obs are exploded if they are ALGs
  14020. 5E32A @  Example: ALG_A+B 1 ALG_E*F #3  ->  A B + 1 E F * #7
  14021. 5E35C :: NS:dup
  14022. 5E35C @  (Meta -> Meta Meta)
  14023. 5E370 :: HP:NDUPN
  14024. 5E3AC :: HP:psh&
  14025. 5E3AC @  (Meta1 Meta2 Meta3 -> Meta1&Meta3 Meta2)
  14026. 5E3C0 :: NS:over&
  14027. 5E3C0 @  (Meta1 Meta2 Meta3 -> Meta1&Meta2 Meta3)
  14028. 5E3E8 :: NS:pshm1
  14029. 5E3E8 @  (Meta2 Ob -> Ob #1 Meta2)
  14030. 5E401 :: NS:psh1top&
  14031. 5E401 @  (Meta Ob -> Ob&Meta)
  14032. 5E415 P  HP:top&
  14033. 5E415 @  (Meta1 Meta2 -> Meta1&Meta2)
  14034. 5E490 :: NS:2top&
  14035. 5E490 @  (Meta1 Meta2 Meta3 -> Meta1&Meta2&Meta3)
  14036. 5E4A9 :: HP:pull
  14037. 5E4A9 :: NS:#1-SWAP
  14038. 5E4A9 @  (Meta&Ob -> Meta Ob)
  14039. 5E4BD :: HP:pullrev
  14040. 5E4BD @  (Ob&Meta -> Meta Ob)
  14041. 5E4D1 :: HP:pshtop&
  14042. 5E4D1 @  (Meta1 Meta2 -> Meta2&Meta1)
  14043. 5E4EA :: HP:pullpsh1&
  14044. 5E4EA @  (Meta1 Meta2&Ob -> Ob&Meta1 Meta2)
  14045. 5E503 :: NS:psh1over&
  14046. 5E503 @  (Meta1 Meta2&Ob -> Meta1&Ob Meta2)
  14047. 5E51C :: NS:addt:
  14048. 5E51C @  (Meta -> Meta&Ob) (Next ob from this instr. stream)
  14049. 5E530 :: NS:addt2:
  14050. 5E530 @  (Meta -> Meta&Ob1&Ob2) (2 next obs from this instr. stream)
  14051. 5E549 :: NS:psh1&rev:
  14052. 5E549 @  (Meta1 Meta2 Meta1&Ob Meta2) (Ob is next in this instr. stream)
  14053. 5E562 :: NS:psh1&rev2:
  14054. 5E562 @  (Meta1 Meta2 -> Meta1&Ob1&Ob2 Meta2) (2 next from this instr. stream)
  14055. 5E585 :: NS:INNERtop&
  14056. 5E585 @  (Meta1 Symb -> Meta')
  14057. 5E59E :: NS:repl:
  14058. 5E59E @  (Meta&Ob1 -> Meta&Ob2) (Ob1 dropped, Ob2 next in this instr.stream)
  14059. 5E5B7 :: CK@
  14060. 5E5B7 @  (1:ID/LAM/romp -> 2:Contents 1:F / 2:ID/LAM/romp/Other 1:T)
  14061. 5E5EE :: CKSAFE@
  14062. 5E602 :: CK@LAM
  14063. 5E616 :: CKROMPTR@
  14064. 5E62A :: DUP:EVALNOTcaseTRUE_SWAPDROPFALSE
  14065. 5E652 :: HP:symcomp
  14066. 5E652 @  Make stk1 into an Algebraic
  14067. 5E661 :: symcompNOCK
  14068. 5E67A :: HP:pshzer
  14069. 5E67A @  (Meta -> #0 Meta)
  14070. 5E68E :: meta>
  14071. 5E68E @  (Meta1&Meta2&Ob -> Meta2&Ob Meta1) (Internal OBJ->)
  14072. 5E6BB :: NS:pullpshm1
  14073. 5E6BB @  (Meta&Ob -> Ob #1 Meta)
  14074. 5E6F2 :: NS:pshzerpsharg&
  14075. 5E6F2 @  (Meta1 Meta2&Meta3<no op> -> Meta1&Meta3 Meta2)
  14076. 5E6F2 @  Example: A B + #3  C D * E F * #6  ->  E F * A B + #6 C D * #3
  14077. 5E706 P  HP:psh1&
  14078. 5E706 @  (Meta1 Meta2 Ob -> Ob&Meta1 Meta2)
  14079. 5E7A5 P  HP:psh1&rev
  14080. 5E7A5 @  (Meta1 Meta2 Ob -> Meta1&Ob Meta2)
  14081. 5E843 :: NS:overrev&
  14082. 5E843 @  (Meta1 Meta2 Meta3 -> Meta2&Meta1 Meta3)
  14083. 5E857 :: NS:rotswap
  14084. 5E857 @  (Meta1 Meta2 Meta3 -> Meta2 Meta1 Meta3)
  14085. 5E870 ::
  14086. 5E889 :: ops#
  14087. 5E889 @  Returns commands argument count (1:CMD -> 2:CMD 1:#args)
  14088. 5E8A2 :: NS:3PICK#2+
  14089. 5E8C0 :: NS:3PICK#1+
  14090. 5E8DE :: algops#
  14091. 5E8DE @  Returns alg. operators argument count (1:+,-...or.. -> 2:oper 1:#args)
  14092. 5E8F2 P
  14093. 5E984 :: HP:nonopcase
  14094. 5E984 @ If DUPTYPE? == seco then SKIP, else COLA
  14095. 5E9A7 P 
  14096. 5E9A7 @  if copy stk1 = 5EA09 (#) -> True/False
  14097. 5E9E1 ::
  14098. 5EA09 :: xWHEREcheckprogram ??????????????
  14099. 5EA13 ::
  14100. 5EA40 ::
  14101. 5EA72 :: ConstFlag?COLANotNumFlag?caseSKIP_COLACOLA
  14102. 5EA9F :: HP:pshzerpsharg
  14103. 5EA9F @  (Meta without last operator -> Meta2 Meta1)
  14104. 5EA9F @  Example: A B + C D - #6 -> C D - #3 A B + #3
  14105. 5EAC2 :: NS:pshzerarg2
  14106. 5EAC2 @  (Meta1&Meta2<no op> -> Meta1 Meta2)
  14107. 5EAF4 :: NS:pulldrop
  14108. 5EAF4 :: NS:SWAPDROP#1-
  14109. 5EAF4 @  (Meta&Ob -> Meta)
  14110. 5EB08 :: M1st2ndDrop
  14111. 5EB08 @  subtract two and drop stk2/stk3 (3:Any,2:Anu,1:#)
  14112. 5EB1C P  HP:psh
  14113. 5EB1C P  NS:swap
  14114. 5EB1C @  (Meta1 Meta2 -> Meta2 Meta1)
  14115. 5EB58 P  NS:rot
  14116. 5EB58 @  (Meta1 Meta2 Meta3 -> Meta2 Meta3 Meta1)
  14117. 5EBC6 P  NS:4roll
  14118. 5EBDB P  NS:unrot
  14119. 5EBDB @  (Meta1 Meta2 Meta3 -> Meta3 Meta1 Meta2)
  14120. 5EBEA P  NS:4unroll
  14121. 5EBFC P  NS:N+1roll
  14122. 5ED45 P  NS:5roll
  14123. 5ED5A P  NS:5unroll
  14124. 5ED6C P  NS:N+1unroll
  14125. 5ED82 ::
  14126. 5EDBE @  MC: checks for %, C%, Array, Linked Array
  14127. 5EDFC P  DUPTYPE%C%[]?case
  14128. 5EDFC @  if copy type(stk1) = %, C%, [] or Linked Array, then COLA, else skip
  14129. 5EE0C @  MC XFER: return and execute the next object in this stream
  14130. 5EE10 P  HP:M-1stcasechs
  14131. 5EE10 @  If stk2 is NEG then Drop it & COLA else SKIP (Meta -> Meta)
  14132. 5EE10 @  Example: :: M-1stcasechs NOP SYMBN ; either negates meta or does SYMBN
  14133. 5EEDB P  Seems like a bug to me, not recalling next real correctly???
  14134. 5EF15 :: HP:AEQ1stcase
  14135. 5EF15 :: 2PICKEQUAL:case
  14136. 5EF15 @  Is metaobs last ob EQUAL to next in this stream? & case (1:Meta)
  14137. 5EF2E P  NS:M1st+case
  14138. 5EF2E @  (Meta) :: M1st+case <If level2 is +> <Else> ;
  14139. 5EF41 P  NS:M1st-case
  14140. 5EF54 P  NS:M1st*case
  14141. 5EF67 P  NS:M1st/case
  14142. 5EF7A P  NS:M1stNEGcase
  14143. 5EF8D P  NS:M1stINVcase
  14144. 5EFA0 P  NS:M1st^case
  14145. 5EFB3 P  NS:M1stSQcase
  14146. 5EFC6 P  OVERFCNAPPLYEQUALcase
  14147. 5EFD9 P  HP:MEQ1stcase
  14148. 5EFD9 P  NS:3PICKEQUALcse
  14149. 5EFD9 @  Is metaobs last ob equal to Any? & case (Meta 1:Any)
  14150. 5EFF9 P  HP:MEQopscase
  14151. 5F048 :: HP:AEQopscase
  14152. 5F048 :: MEQopscase:
  14153. 5F061 P  HP:Mid1stcase
  14154. 5F061 @  if copy type(stk2) = ID/LAM, then COLA, else skip
  14155. 5F090 @  MC XFER: skip next object
  14156. 5F09D @  MC XFER: COLA
  14157. 5F0AA :: HP:idntcase
  14158. 5F0CD :: HP:idntlamcase
  14159. 5F0FA :: HP:num0=case
  14160. 5F0FA @  If stk1 = %0 or C%0 then COLA else SKIP
  14161. 5F127 :: HP:%0=case
  14162. 5F127 @  If DUP %0= then COLA else SKIP
  14163. 5F13B :: NS:C%0=case
  14164. 5F13B @  If DUP C%0= then COLA else SKIP
  14165. 5F154 :: HP:num1=case
  14166. 5F154 @  If DUP stk1 = %1 or C%1 then COLA else SKIP
  14167. 5F181 :: HP:%1=case
  14168. 5F181 @  If DUP %1= then COLA else SKIP
  14169. 5F19F :: NS:C%1=case
  14170. 5F19F @  If DUP C%1= then COLA else SKIP
  14171. 5F1BD :: HP:num2=case
  14172. 5F1BD @  If DUP stk1 is %2 or C%2 then COLA else SKIP
  14173. 5F1EA :: HP:%2=case
  14174. 5F1EA @  If DUP %2= then COLA else SKIP
  14175. 5F208 :: NS:C%2=case
  14176. 5F208 @  If DUP C%2= then COLA else SKIP
  14177. 5F23A :: HP:num-1=case
  14178. 5F23A @  If DUP stk1 = %-1 or C%-1 then COLA else SKIP
  14179. 5F267 :: HP:%-1=case
  14180. 5F267 @  if DUP stk1 = %-1 then COLA, else SKIP
  14181. 5F285 :: NS:C%-1=case
  14182. 5F285 @  If DUP C%-1= then COLA else SKIP
  14183. 5F2A3 :: NS:EXPLODESYMB
  14184. 5F2BC :: pullDTYPESYMB?ITE_INNERCOMPtop&_psh1&
  14185. 5F2EE :: NS:IMPLODESYMB
  14186. 5F2EE @  (Meta -> Ob) Checks FormData too
  14187. 5F31B :: NS:MIMPLODE
  14188. 5F370 :: NS:psh1&revUNTIL
  14189. 5F370 @  (Meta1 Meta2 Ob -> Meta1&Ob Meta2) If Meta2 is empty end loop
  14190. 5F384 :: NS:DrpMkLegalSym
  14191. 5F384 @  DROP & if not (ID,LAM,%,C%,Unit) then symcomp
  14192. 5F3D4 :: MAPPLYIMPLODE
  14193. 5F3FC ::
  14194. 5F4A6 ::
  14195. 5F4F6 :: NS:MReplIMPLODE
  14196. 5F537 P  NS:DUMMYcase
  14197. 5F537 @  If DUP stk1 == COMPLEX/POLARDUMMY then COLA else SKIP
  14198. 5F571 :: IMPLODEDUMMY
  14199. 5F5AD ::
  14200. 5F5E4 :: NS:4DROPFALSE
  14201. 5F616 :: 3PICK#4+PICKSWAP
  14202. 5F63E :: 
  14203. 5F657 :: NS:3DROPTRUE
  14204. 5F67F :: 4DROPFALSE
  14205. 5F6B1 :: NS:5DROPFALSE
  14206. 5F6F2 mc NS:ObDispatch1
  14207. 5F6F2 @  Uses data at 5F7E0
  14208. 5F6F9 mc NS:ObDispatch
  14209. 5F6F9 @  This routine dispatches on the meta object (Starting at level 2)
  14210. 5F6F9 @  Usage: MOVE.P5 #addr,C   CALL.A #5F6F9  arglist...
  14211. 5F6F9 @  #addr is the address to the pointer list to be used
  14212. 5F6F9 @  Example: 5F7E0: + - * ....
  14213. 5F6F9 @  CALL.A never returns, CALL is just used to pass the address of arglist
  14214. 5F6F9 @  arlist is of form: nnnnn addr/XLIB nnnnn addr/XLIB.... F
  14215. 5F6F9 @  Example: 10000 XLIB 1190 01 22020 XLIB 1190 02 F with above addr
  14216. 5F6F9 @  Expects args like + #n or - - Any - #n, but doesn't error if no match
  14217. 5F6F9 @  is found (Matching is done until FALSE or rest of the number is zeros)
  14218. 5F6F9 @  Example: COLCT uses this to match PI and PI 2 /
  14219. 5F7E0 rf r_x+
  14220. 5F7E5 rf r_x-
  14221. 5F7EA rf r_x*
  14222. 5F7EF rf r_x/
  14223. 5F7F4 rf r_^
  14224. 5F7F9 rf r_xNEG
  14225. 5F7FE rf r_xINV
  14226. 5F803 rf r_xEXP
  14227. 5F808 rf r_xALOG
  14228. 5F80D rf r_xLN
  14229. 5F812 rf r_xLOG
  14230. 5F817 rf r_xPI
  14231. 5F81C rf r_%2
  14232. 5F821 mc ???
  14233. 5F908 rf r_CK0
  14234. 5F90D rf r_CK1&Dispatch
  14235. 5F912 rf r_CK2&Dispatch
  14236. 5F917 rf r_CK3&Dispatch
  14237. 5F91C rf r_CK4&Dispatch
  14238. 5F921 rf r_CK5&Dispatch
  14239. 5F926 P  Msplit
  14240. 5F926 @  (3:Meta 2:??? 1:#args-1  ->  Meta  #level.of.split.start)
  14241. 5F96E P  Msplit2
  14242. 5F96E @  Haven't checked the difference yet
  14243. 5F996 :: tailpsh
  14244. 5F996 @  (Meta1&Meta2 #size(Meta2)+1 -> Meta2 Meta1)
  14245. 5F9B9 :: OB>$
  14246. 5FA04 :: 
  14247. 5FA2C :: algmeta>
  14248. 5FA2C @  (Meta -> N+3:Arg1 4:Argn 3:#args 2:Command 1:T / Meta F)
  14249. 5FA36 ::
  14250. 5FA45 :: NS:pulldroppull
  14251. 5FA45 @  (Meta&Ob1&Ob2 -> Meta Ob1)
  14252. 5FA63 :: NS:revpulldrop
  14253. 5FA63 @  (Meta1&Ob1 Ob2 -> Meta1 Ob2)
  14254. 5FA90 ::
  14255. 5FAE0 ::
  14256. 5FAF4 ::
  14257. 5FB08 ::
  14258. 5FB49 :: HP:NOTcaseFALSE
  14259. 5FB49 @  if pop stk1 <> True, then False, iterate loop (pop back)
  14260. 5FB5D :: NS:COLAEVAL:
  14261. 5FB5D @  :: 'R EVAL RDROP ;
  14262. 5FB76 P  HP:ROT#1+UNROT
  14263. 5FBE6 P  NS:pick1#0=case
  14264. 5FBE6 @  (Meta1 Meta2 -> Meta1 Meta2) If Meta1 is #0 sized then COLA, else SKIP
  14265. 5FC24 :: NS:pick1
  14266. 5FC24 :: NS:DUP#2+PICK
  14267. 5FC24 @  (Ob Meta -> Ob Meta Ob)
  14268. 5FC38 :: NS:%1pshm1
  14269. 5FC38 @  (Meta2 -> %1 #1 Meta2)
  14270. 5FC4C :: pullsymcomppsh1&
  14271. 5FC4C @  (Meta1 Meta2&Ob -> Ob&Meta1 Meta2) (Ob changed to symbolic)
  14272. 5FC65 ::
  14273. 5FC6F xl
  14274. 5FC89 xl
  14275. 5FDB7 ::
  14276. 5FDBC {} LAM{'ct'p'ep}
  14277. 5FDC1 l' LAM_'ct
  14278. 5FDCE l' LAM_'p
  14279. 5FDDB l' LAM_'ep
  14280. 5FE2E :: LAMs'ct'p'epABNDTRUE
  14281. 5FE56 ::
  14282. 5FE92 ::
  14283. 5FEFB ::
  14284. 5FF23 :: Incr{'pp'ep}
  14285. 5FF23 @  Increment ''pp' and ''ep' (LAM)
  14286. 5FF5F ::
  14287. 5FF73 P  NS:DUP&NAME?
  14288. 5FF73 @  IF stk1 is ID/LAM and 1st char is '&' then TRUE, else FALSE
  14289. 5FFD6 ::
  14290. 6001C ::
  14291. 60035 ::
  14292. 60058 ::
  14293. 6007B ::
  14294. 600A3 ::
  14295. 600F3 {}
  14296. 600FD ::
  14297. 60139 ::
  14298. 60148 ::
  14299. 6019D ::
  14300. 601B6 P
  14301. 60254 ::
  14302. 6029A ::
  14303. 602BD P
  14304. 603C9 :: DoMATCHu
  14305. 603E2 ::
  14306. 60405 :: 
  14307. 6045F :: NS:INCRLAM:
  14308. 6045F @  :: INCRLAM: LAM a ;  Does LAM a #1+ ' LAM a STO
  14309. 60487 ::
  14310. 604AF ::
  14311. 604E6 ::
  14312. 6059A :: MATCHCond
  14313. 60644 :: DoMATCHd
  14314. 606CB ::
  14315. 606E4 ::
  14316. 6071B ::
  14317. 60806 {} MATCHLAMS{}
  14318. 6080B l' LAM_'reg
  14319. 6080B @  Has True if MATCH was succesful
  14320. 6081A l' LAM_'sur
  14321. 60829 l' LAM_'cts
  14322. 60838 l' LAM_'sun
  14323. 60847 l' LAM_'mlg
  14324. 60856 l' LAM_'ckd
  14325. 60865 l' LAM_'prd
  14326. 60874 l' LAM_'prp
  14327. 60883 l' LAM_'rhs
  14328. 60897 :: MATCHInit
  14329. 608C4 :: MATCHBindInit
  14330. 608C9 :: MATCHInitFlags
  14331. 6097D ::
  14332. 609B9 ::
  14333. 609EB ::
  14334. 60A31 ::
  14335. 60A54 :: SetMATCH
  14336. 60A54 @  Sets matching prg ((4:Arg) 3:Arg 2:Arg 1:True if 3 args, else False
  14337. 60A86 ::
  14338. 60AF9 ::
  14339. 60B17 :: NS:MATCH:
  14340. 60B17 @  If next is True MATCHUP else MATCHDOWN (2:%/C%/sym 1:{} -> 2:Ob 1:%)
  14341. 60BA8 ::
  14342. 60BCB ::
  14343. 60BE4 {}
  14344. 60BE9 l' LAM_'patternls
  14345. 60C04 l' LAM_'compos
  14346. 60C19 l' LAM_'varls
  14347. 60C4F l' LAM_'patternls
  14348. 60C6A l' LAM_'compos
  14349. 60CBB ::
  14350. 60CCA l' LAM_'compos
  14351. 60D1B ::
  14352. 60D7F l' LAM_'varls
  14353. 60DB5 ::
  14354. 60DD3 ::
  14355. 60E3C ::
  14356. 60E73 {} {4NULL{}s_LAMs&1-&4}
  14357. 60E8C l' NS:LAM_&1
  14358. 60E97 l' NS:LAM_&2
  14359. 60EA2 l' NS:LAM_&3
  14360. 60EAD l' NS:LAM_&4
  14361. 60EBD P  HP:RSWAP
  14362. 60EBD @  SWAP in return stack (Example :: RSWAP RDROP ; Drops prevprev program)
  14363. 60EE7 P  HP:ROTSWAP
  14364. 60EE7 P  HP:XYZ>YXZ
  14365. 60EE7 P  SWAP(2,3)
  14366. 60F0E P  HP:ROTDROPSWAP
  14367. 60F0E P  HP:UNROTSWAPDRO
  14368. 60F0E P  HP:XYZ>ZY
  14369. 60F0E P  NS:repl
  14370. 60F0E @  (Meta&Ob1 Ob2 -> Meta&Ob2)
  14371. 60F21 P  HP:ROTDROP
  14372. 60F21 P  HP:XYZ>YZ
  14373. 60F21 P  DROP(3)
  14374. 60F33 P  HP:SWAPROT
  14375. 60F33 P  HP:UNROTSWAP
  14376. 60F33 P  HP:XYZ>ZYX
  14377. 60F33 P  SWAP(1,3)
  14378. 60F4B P  HP:3DROP
  14379. 60F4B P  HP:XYZ>
  14380. 60F54 P  HP:7DROP
  14381. 60F66 P  HP:6DROP
  14382. 60F72 P  HP:5DROP
  14383. 60F7E P  HP:4DROP
  14384. 60F7E P  HP:XYZW>
  14385. 60F83 mc HP:4DropLoop
  14386. 60F9B P  HP:SWAPDROP
  14387. 60F9B P  HP:XY>Y
  14388. 60F9B P  DROP(2)
  14389. 60FAC P  HP:3UNROLL
  14390. 60FAC P  HP:UNROT
  14391. 60FAC P  HP:XYZ>ZXY
  14392. 60FBB P  HP:4ROLL
  14393. 60FBB P  HP:FOURROLL
  14394. 60FBB P  HP:XYZW>YZWX
  14395. 60FD8 P  HP:5ROLL
  14396. 60FD8 P  HP:FIVEROLL
  14397. 61002 P  HP:6ROLL
  14398. 61002 P  HP:SIXROLL
  14399. 6103C P  HP:8ROLL
  14400. 6103C P  HP:EIGHTROLL
  14401. 6106B P  HP:7ROLL
  14402. 6106B P  HP:SEVENROLL
  14403. 61099 *  HP:DUP4UNROLL
  14404. 61099 *  XYZ>ZXYZ
  14405. 6109E P  HP:4UNROLL
  14406. 6109E P  HP:FOURUNROLL
  14407. 6109E P  HP:XYZW>WXYZ
  14408. 610C4 P  HP:5UNROLL
  14409. 610C4 P  HP:FIVEUNROLL
  14410. 610FA P  HP:6UNROLL
  14411. 610FA P  HP:SIXUNROLL
  14412. 6112A P  HP:ROTROT2DROP
  14413. 6112A P  HP:UNROT2DROP
  14414. 6112A P  HP:XYZ>Z
  14415. 6112A P  DROP(2,3)
  14416. 6113C P  HP:4UNROLL3DROP
  14417. 6113C P  HP:XYZW>W
  14418. 6113C @  DROP(2,3,4)
  14419. 6114E P  HP:2RDROP
  14420. 6114E @  Drops 2 from return stack
  14421. 61160 P  HP:3RDROP
  14422. 61160 @  Drops 3 from return stack
  14423. 61172 P  HP:#-PICK
  14424. 61184 P  HP:#+PICK
  14425. 6119E *  HP:DUP#1+PICK
  14426. 6119E *  NS:pickrev
  14427. 6119E @  (Ob&Meta -> Ob&Meta Ob)
  14428. 611A3 P  HP:#1+PICK
  14429. 611BE P  HP:#2+PICK
  14430. 611D2 P  HP:#3+PICK
  14431. 611E1 P  HP:#4+PICK
  14432. 611F9 *  HP:2DUPSWAP
  14433. 611F9 *  HP:DUP3PICK
  14434. 611FE P  HP:3PICK
  14435. 6121C P  HP:4PICK
  14436. 6123A P  HP:5PICK
  14437. 6125E P  HP:6PICK
  14438. 61282 P  HP:7PICK
  14439. 612A9 P  HP:8PICK
  14440. 612CC P  HP:#-ROLL
  14441. 612DE P  HP:#+ROLL
  14442. 612EC @  MC XFER: ROLL A.A levels and continue RPL
  14443. 612F3 P  HP:#1+ROLL
  14444. 61305 P  HP:get1
  14445. 61305 P  NS:DUP#2+ROLL
  14446. 61305 @  (Ob Meta -> Meta Ob)
  14447. 61318 P  HP:#2+ROLL
  14448. 6132C P  HP:#-UNROLL
  14449. 6133E P  HP:#+UNROLL
  14450. 6134C @  MC XFER: ROLLD A.A levels and continue RPL
  14451. 61353 P  HP:#1+UNROLL
  14452. 61365 P  HP:#2+UNROLL
  14453. 61380 P  HP:DUPUNROT
  14454. 61380 P  HP:SWAPOVER
  14455. 613B6 P  HP:1GETLAM
  14456. 613E7 P  HP:2GETLAM
  14457. 6140E P  HP:3GETLAM
  14458. 61438 P  HP:4GETLAM
  14459. 6145C P  HP:5GETLAM
  14460. 6146C P  HP:6GETLAM
  14461. 6147C P  HP:7GETLAM
  14462. 6148C P  HP:8GETLAM
  14463. 6149C P  HP:9GETLAM
  14464. 614AC P  HP:10GETLAM
  14465. 614BC P  HP:11GETLAM
  14466. 614CC P  HP:12GETLAM
  14467. 614DC P  HP:13GETLAM
  14468. 614EC P  HP:14GETLAM
  14469. 614FC P  HP:15GETLAM
  14470. 6150C P  HP:16GETLAM
  14471. 6151C P  HP:17GETLAM
  14472. 6152C P  HP:18GETLAM
  14473. 6153C P  HP:19GETLAM
  14474. 6154C P  HP:20GETLAM
  14475. 6155C P  HP:21GETLAM
  14476. 6156C P  HP:22GETLAM
  14477. 615E0 P  HP:1PUTLAM
  14478. 615F0 P  HP:2PUTLAM
  14479. 61600 P  HP:3PUTLAM
  14480. 61610 *  HP:DUP4PUTLAM
  14481. 61615 P  HP:4PUTLAM
  14482. 61625 P  HP:5PUTLAM
  14483. 61635 P  HP:6PUTLAM
  14484. 61645 P  HP:7PUTLAM
  14485. 61655 P  HP:8PUTLAM
  14486. 61665 P  HP:9PUTLAM
  14487. 61675 P  HP:10PUTLAM
  14488. 61685 P  HP:11PUTLAM
  14489. 61695 P  HP:12PUTLAM
  14490. 616A5 P  HP:13PUTLAM
  14491. 616B5 P  HP:14PUTLAM
  14492. 616C5 P  HP:15PUTLAM
  14493. 616D5 P  HP:16PUTLAM
  14494. 616E5 P  HP:17PUTLAM
  14495. 616F5 P  HP:18PUTLAM
  14496. 61705 P  HP:19PUTLAM
  14497. 61715 P  HP:20PUTLAM
  14498. 61725 P  HP:21PUTLAM
  14499. 61735 P  HP:22PUTLAM
  14500. 61745 P  HP:DUPTEMPENV
  14501. 617D8 P  HP:GETLAMPAIR
  14502. 617D8 @  Gets 1LAM contents & name (3:contents 2:LAM 1:False ???)
  14503. 6186C P  HP:#=case
  14504. 6186C @  (# #') :: OVER#=case <True> <False> ;     == <True>/<False>
  14505. 6187C P  HP:OVER#=case
  14506. 6187C @  (# #') :: OVER#=case <True> <False> ;     == # <True> / # <False>
  14507. 61891 *  HP:DUP#0=case
  14508. 61891 @  (#)    :: DUP#0=case <True> <False> ;     == # <True> / # <False>
  14509. 61896 P  HP:#0=case
  14510. 61896 @  (#)    :: #0=case <True> <False> ;        == <True> / <False>
  14511. 618A8 P  HP:DUP#0=csedrp
  14512. 618A8 @  (#)    :: DUP#0=csedrp <True> <False> ;   == <True> / # <False>
  14513. 618BA P  HP:EQcasedrop
  14514. 618BA @  (Ob1 Ob2) :: EQcasedrop <True> <False> ;  == <True> / Ob1 <False>
  14515. 618D3 P  HP:#=casedrop
  14516. 618D3 P  NS:OVER#=casedrp
  14517. 618D3 @  (# #') :: OVER#=casedrop <True> <False> ; == <True> / # <False>
  14518. 618E8 P  HP:NOTcasedrop
  14519. 618E8 @  (Ob f) :: NOTcasedrop <True> <False> ;    == <True> / Ob <False>
  14520. 618F7 P  HP:casedrop
  14521. 618F7 @  (Ob f) :: casedrop <True> <False> ;       == <True> / Ob <False>
  14522. 61903 @  MC XFER: skip next object and continue RPL
  14523. 61907 @  MC: DROP, return and execute the next object in this stream
  14524. 61910 P  HP:NOTcase2drop
  14525. 61910 @  (Ob1 Ob2 f) ::NOTcase2drop <True> <False>;== <True> / Ob1 Ob2 <False>
  14526. 6191F P  HP:case2drop
  14527. 6191F @  (Ob1 Ob2 f) :: case2drop <True> <False> ; == <True> / Ob1 Ob2 <False>
  14528. 61933 P  HP:EQcase
  14529. 61933 @  (Ob1 Ob2) :: EQcase <True> <False> ;      == Ob1 <True> / Ob2 <False>
  14530. 6194B P  HP:caseDROP
  14531. 6194B @  (Ob1 f)   :: caseDROP <False> ;           == () / Ob1 <False>
  14532. 61960 P  HP:NOTcaseDROP
  14533. 61960 @  (Ob1 f)   :: NOTcaseDROP <False> ;        == () / Ob1 <False>
  14534. 6196C @  MC XFER: continue RPL
  14535. 61970 P  HP:case2DROP
  14536. 61970 @  (Ob1 Ob2 f) :: case2DROP <False> ;        == () / Ob1 Ob2 <False>
  14537. 61984 P  HP:NOTcase2DROP
  14538. 61984 @  (Ob1 Ob2 f) :: NOTcase2DROP <False> ;     == () / Ob1 Ob2 <False>
  14539. 61993 P  HP:case
  14540. 61993 @  (f)   :: case <True> <False> ;            == <True> / <False>
  14541. 6199F @  MC XFER: return and execute the next object in this stream
  14542. 619A6 @  MC XFER: skip next object and continue RPL
  14543. 619AD P  HP:NOTcase
  14544. 619AD @  (f)   :: NOTcase <True> <False> ;         == <True> / <False>
  14545. 619BC P  HP:IT
  14546. 619BC @  (f)   :: IT <True> <Rest> ;               == <True> <Rest> / <Rest>
  14547. 619CB P  HP:GOTO
  14548. 619CB @  Goto next address ( :: <prg> :: GOTO <addr> ; <rest> ; is GOSUB)
  14549. 619E0 P  HP:?GOTO
  14550. 619E0 @  Goto next address if True
  14551. 619F3 P  HP:NOT?GOTO
  14552. 619F3 @  Goto next address if False
  14553. 61A02 mc HP:popflag
  14554. 61A02 @  If pop stk1 = True -> set carry, else clear carry
  14555. 61A18 P  HP:#0=?SEMI
  14556. 61A2C P  HP:NOT?SEMI
  14557. 61A3B P  HP:?SEMI
  14558. 61A47 mc HP:SEMILOOP
  14559. 61A4E @  MC: continue RPL
  14560. 61A58 P  HP:ITE_DROP
  14561. 61A58 @  (Ob f)   :: ITE_DROP <False> <Rest> ; == <Rest> / Ob <False> <Rest>
  14562. 61A6D P  HP:COLA_EVAL
  14563. 61A6D @  Drops rest & executes stk1
  14564. 61A6D @  Example: :: 1 2 ' x+ COLA_EVAL <Never> ; -> 3  
  14565. 61A8E P  HP:COLARPITE
  14566. 61A8E @  (f <True> <False>) :: COLARPITE <Never> ;
  14567. 61AD8 P  HP:ITE
  14568. 61AD8 @  (f) :: ITE <True> <False> <Rest> ;
  14569. 61AE9 P  HP:2'RCOLARPITE
  14570. 61AE9 @  (f) :: :: 2'RCOLARPITE <Never> ; <True> <False> <Rest> ;
  14571. 61B45 P  HP:2@REVAL
  14572. 61B45 @  Fetch & EVAL 1st object in prevprev (Doesn't advance)
  14573. 61B45 @  :: :: :: 2@REVAL <Rest1> ; <Rest2> ; <This> <Rest3> ;
  14574. 61B55 P  HP:3@REVAL
  14575. 61B55 @  Fetch & EVAL 1st object in prevprevprev (Doesn't advance)
  14576. 61B72 P  HP:NOT?DROP
  14577. 61B72 @  (Ob False ->)    (True ->)
  14578. 61B89 P  HP:ticR
  14579. 61B89 @  If 'R is SEMI then RDROP & (-> False) else ( -> Ob True) & advance
  14580. 61C1C P  HP:EXPAND
  14581. 61C1C @  allocate nibbles (2:sized object,1:#length)
  14582. 61CE9 P  HP:CACHE
  14583. 61CE9 @  Binds n objects to same LAM (Obn .. Ob1 #n LAM ->) (1LAM is count)
  14584. 61D3A l' HP:SAVELAM
  14585. 61D41 P  HP:SAVESTACK
  14586. 61D41 @  Saves stack (Depth bound to SAVELAM to SAVELAM)
  14587. 61D41 @  (Example: 
  14588. 61D41 @  1 2 3 :: x+ SAVESTACK x+ undo ; -> 1 5 <LASTARG> -> 1 2 3
  14589. 61EA7 P  HP:DUMP
  14590. 61EA7 @  Dumps CACHEd LAMs (NULLLAMs) (-> Ob1 .. Obn #n)
  14591. 61F1B @  if pop stk1 = True, then SWAP
  14592. 61F8F P  HP:undo
  14593. 61F8F @  Resumes stack saved by SAVESTACK
  14594. 61F8F @  (Example: :: 1 2 SAVESTACK + 2 * undo ; -> 1 2)
  14595. 61FA9 P  HP:DUPROM-WORD?
  14596. 61FA9 @  DUP & IS stk1 ROM XLIB'ed entry point -> (1:Any -> 2:Any 1:T/F)
  14597. 61FB6 P  HP:ROM-WORD?
  14598. 61FA9 @  IS stk1 ROM XLIB'ed entry point (Has XLIB number) -> (1:Any -> 1:T/F)
  14599. 61FCF mc HP:Rom-Word?
  14600. 61FCF @  If copy stk1 is base ROM XLIB'ed entry point -> set carry
  14601. 62001 P  HP:2SWAP
  14602. 62001 @  4ROLL 4ROLL (Ob1 Ob2 Ob3 Ob4 -> Ob3 Ob4 Ob1 Ob2)
  14603. 62020 *  HP:DUPTYPECHAR?
  14604. 62025 P  HP:TYPECHAR?
  14605. 62035 *  HP:DUPTYPEIDNT?
  14606. 6203A P  HP:TYPEIDNT?
  14607. 6204A *  HP:DUPTYPEEXT?
  14608. 6204F P  HP:TYPEEXT?
  14609. 6205B @  MC: if pop type(stk1) = C.A -> True/False
  14610. 62063 @  MC: Check Prolog -> True/False
  14611. 62073 *  HP:GPOverWrT/FL
  14612. 62073 @  Restore registers (GP) & Overwrite level1 with T/F(carry) & cont RPL
  14613. 62076 *  HP:GPOverWrTLp
  14614. 6207D mc HP:OverWrF/TLp
  14615. 62080 mc HP:OverWrTLoop
  14616. 62096 *  HP:GPOverWrFLp
  14617. 6209D *  HP:OverWrT/FLp
  14618. 620A0 mc HP:OverWrFLoop
  14619. 620B6 mc HP:GPPushT/FLp
  14620. 620B9 mc HP:GPPushTLoop
  14621. 620C0 *  HP:PushF/TLoop
  14622. 620C3 *  HP:DOTRUE
  14623. 620C3 *  HP:PushTLoop
  14624. 620D2 mc HP:GPPushFLoop
  14625. 620D9 mc HP:PushT/F
  14626. 620D9 mc HP:PushT/FLoop
  14627. 620DC *  HP:DOFALSE
  14628. 620DC *  HP:PushFLoop
  14629. 620EB P  HP:OVER#=
  14630. 62103 P  HP:DROPTRUE
  14631. 6210C P  HP:DROPFALSE
  14632. 62115 *  HP:DUPTYPELAM?
  14633. 6211A P  HP:TYPELAM?
  14634. 6212A *  HP:DUPTYPEBINT?
  14635. 6212F P  HP:TYPEBINT?
  14636. 6213F *  HP:DUPTYPEHSTR?
  14637. 62144 P  HP:TYPEHSTR?
  14638. 62154 *  HP:DTYPECSTR?
  14639. 62154 *  HP:DUPTYPECSTR?
  14640. 62159 P  HP:TYPECSTR?
  14641. 62169 *  HP:DTYPEREAL?
  14642. 62169 *  HP:DUPTYPEREAL?
  14643. 6216E P  HP:TYPEREAL?
  14644. 6217E *  HP:DUPTYPECMP?
  14645. 62183 P  HP:TYPECMP?
  14646. 62193 *  HP:DTYPEARRY?
  14647. 62193 *  HP:DUPTYPEARRY?
  14648. 62198 P  HP:TYPEARRY?
  14649. 621A8 *  HP:DUPTYPEROMP?
  14650. 621AD P  HP:TYPEROMP?
  14651. 621BD *  HP:DUPTYPERRP?
  14652. 621C2 P  HP:TYPERRP?
  14653. 621D2 *  HP:DUPTYPESYMB?
  14654. 621D7 P  HP:TYPESYMB?
  14655. 621E7 *  HP:DTYPECOL?
  14656. 621E7 *  HP:DUPTYPECOL?
  14657. 621EC P  HP:TYPECOL?
  14658. 621FC *  HP:DUPTYPEGROB?
  14659. 62201 P  HP:TYPEGROB?
  14660. 62211 *  HP:DTYPELIST?
  14661. 62211 *  HP:DUPTYPELIST?
  14662. 62216 P  HP:TYPELIST?
  14663. 62226 *  HP:DUPTYPETAG?
  14664. 6222B P  HP:TYPETAGGED?
  14665. 6223B P  HP:TYPERARRY?
  14666. 62256 P  HP:TYPECARRY?
  14667. 62266 P  HP:DUP#0=
  14668. 6226F @  MC: if A.A = 0 -> True/False
  14669. 62278 @  MC: copy stk1 (#) into A.A
  14670. 62289 P  HP:#3=
  14671. 6229A P  HP:#2=
  14672. 622A7 P  HP:#1=
  14673. 622B6 P  HP:#1<>
  14674. 622C5 P  HP:DUP#1=
  14675. 622D4 P  HP:DUP#0<>
  14676. 622DD @  MC: if A.A <> 0 -> True/False
  14677. 622E5 :: HP:!insert$
  14678. 622E5 @  Inserts $m in front of $n (2:$n 1:$m -> 1:$mn)
  14679. 622EF :: HP:SWAP&$
  14680. 622EF @  Internal SWAP and + (2:$n 1:$m -> 1:$mn)
  14681. 62312 :: HP:!!append$?
  14682. 62312 @  Appends $m to $n (2:$n 1:$m -> 1:$nm)
  14683. 62326 ::
  14684. 62376 :: HP:!append$
  14685. 62376 @  Appends $m to $n (2:$n 1:$m -> 1:$nm)
  14686. 62394 P  HP:!!insert$
  14687. 62394 @  Inserts $m in front of $n (2:$n 1:$m -> 1:$mn)
  14688. 623A0 P  HP:!!append$
  14689. 623A0 @  Appends $m to $n (2:$n 1:$m -> 1:$nm)
  14690. 623F9 @  MC XFER: restore regs, DROP and continue RPL
  14691. 62467 @  MC: restore regs, DROP and continue RPL
  14692. 62474 P  HP:'RSAVEWORD
  14693. 62474 P  HP:'RSaveRomWrd
  14694. 62474 @  Recalls next in prev (doesn't advance?) & stores it (addr-10)
  14695. 6249E @  MC XFER: pop stk1 (#) into A.A
  14696. 624AC @  MC XFER: restore D,B,D1,D0 (C=D0), clear carry
  14697. 624B3 @  MC XFER: save regs D,B,D1,D0 (uses C)
  14698. 624BA P  HP:#MIN
  14699. 624C6 P  HP:#MAX
  14700. 624FB P  HP:#-#2/
  14701. 62535 P  HP:DROPZERO
  14702. 62544 @  MC: continue RPL
  14703. 6254E P  HP:2DROP00
  14704. 6256A P  HP:#3+
  14705. 6257A P  HP:#4+
  14706. 6258A P  HP:#5+
  14707. 6259A P  HP:#6+
  14708. 625AA P  HP:#7+
  14709. 625BA P  HP:#8+
  14710. 625CA P  HP:#9+
  14711. 625DA P  HP:#10+
  14712. 625EA P  HP:#12+
  14713. 625FA P  HP:#3-
  14714. 6260A P  HP:#4-
  14715. 6261A P  HP:#5-
  14716. 6262A P  HP:#6-
  14717. 62636 @  MC: add C.A to stk1 and continue RPL (1:#)
  14718. 6264E P  HP:#10*
  14719. 6266D @  MC XFER: push A as new # and continue RPL
  14720. 62674 P  HP:#8*
  14721. 62691 P  HP:#6*
  14722. 626AE P  HP:5skipcola
  14723. 626AE @  Return and execute the sixth object in this stream
  14724. 626AE @  Example: :: 5skipcola 1 2 3 4 5 6 7 8 9 ; -> 6
  14725. 626DC P  HP:3skipcola
  14726. 626E5 P  HP:2skipcola
  14727. 626EE P  HP:skipcola
  14728. 626F7 P  HP:DUP#2+
  14729. 6270C P  HP:DROPSWAP
  14730. 62726 P  HP:DROPSWAPDROP
  14731. 62726 P  HP:ROT2DROP
  14732. 62726 P  HP:XYZ>Y
  14733. 62726 P  DROP(1,3)
  14734. 62747 P  HP:SWAPDUP
  14735. 62775 P  HP:ROTDUP
  14736. 62794 P  HP:SWAP#-
  14737. 627A7 P  HP:DROPDUP
  14738. 627BB P  HP:DUPLEN$
  14739. 627CE @  MC XFER: push A as new # and continue RPL
  14740. 627D5 P  HP:#+DUP
  14741. 627EB mc HP:Push2#aLoop
  14742. 627F8 P  HP:#-DUP
  14743. 62809 P  HP:#1+DUP
  14744. 6281A P  HP:#1-DUP
  14745. 62829 @  MC XFER: pop 2 # into A.A,C.A
  14746. 62830 P  HP:SWAPDROPDUP
  14747. 62830 P  XY>YY
  14748. 6284B P  HP:SWAPDROPSWAP
  14749. 6284B P  HP:UNROTDROP
  14750. 6284B P  HP:XYZ>ZX
  14751. 62864 P  HP:4ROLLDROP
  14752. 62864 P  DROP(4)
  14753. 62880 P  HP:5ROLLDROP
  14754. 62880 P  DROP(5)
  14755. 6289B P  HP:2DUP#<
  14756. 628B5 P  HP:2DUP#=
  14757. 628D1 P  HP:2DUP#>
  14758. 628EB P  HP:DUP#1+
  14759. 62904 P  HP:SWAP#1+
  14760. 62904 P  HP:SWP1+
  14761. 62904 P  NS:addt
  14762. 62904 @  (Meta Ob -> Meta&Ob)
  14763. 6292F P  HP:DUP#1-
  14764. 62946 P  HP:DROPONE
  14765. 62958 P  HP:RDROPCOLA
  14766. 62958 @  Execute next, then return 2 times
  14767. 62958 @  :: :: RDROPCOLA <This> <Never> ; <Never> ;
  14768. 62966 @  MC XFER: return and execute the next object in this stream
  14769. 6296D P  HP:COLACOLA
  14770. 6296D @  Return, execute next, return
  14771. 6296D @  :: :: COLACOLA <Never> ; <This> <Never> ;
  14772. 62986 P  HP:COLAcase
  14773. 62986 @  Return, case    (f) :: :: COLAcase <Never> ; <True> <False> ; 
  14774. 629A1 P  HP:COLANOTcase
  14775. 629A1 @  Return, NOT, case  (f) :: :: COLANOTcase <Never> ; <True> <False> ;
  14776. 629BC :: HP:ORcase
  14777. 629BC @  (f f) :: ORcase <True> <False> ;   == <True> / <False>
  14778. 629D0 :: HP:REQcase
  14779. 629D0 @  (Ob1) :: REQcase Ob2 <True> <False> ;  == Ob1 <True> / Ob1 <False>
  14780. 629E9 :: HP:REQcasedrop
  14781. 629E9 @  (Ob1) :: REQcasedrop Ob2 <True> <False> ;  == <True> / Ob1 <False>
  14782. 62A02 :: HP:SAFESTO
  14783. 62A02 @  Internal STO (2:Any 1:ID/LAM)
  14784. 62A2F *  HP:DUPSAFE@
  14785. 62A2F @  DUP and RCL (1:ID/LAM -> 3:ID/LAM 2:contents 1:T / 2:ID/LAM 1:F)
  14786. 62A34 :: HP:SAFE@
  14787. 62A34 @  Internal RCL (1:ID/LAM -> 2:contents 1:T / 1:F)
  14788. 62A61 :: HP:?>ROMPTR
  14789. 62A61 @  If ROMWORD & seco then RPL@ (1:Any -> 1:Any or other :)
  14790. 62A84 :: HP:?ROMPTR>
  14791. 62A84 @  (If XLIB is in built-in-not-hidden ROM then @) (1:Any)
  14792. 62ABB :: HP:MACRODCMP
  14793. 62ACF ::
  14794. 62B0B :: HP:2DROPFALSE
  14795. 62B0B @  Internal DROP2 and False
  14796. 62B1F :: HP:PALPTRDCMP
  14797. 62B1F @  XLIB to string (1:Ob -> 2:"XLIBNAME" 1:TRUE / 2:Ob 1:False)
  14798. 62B1F @  (1:SIN -> 2:"SIN" 1:True | 1:XLIB.. -> 2:"XLIB.." 1:True)
  14799. 62B5B :: HP:palrompdcmp
  14800. 62B5B @  XLIB with no name to string (1:XLIB -> 2:"XLIB..." 1:True)
  14801. 62B6F :: HP:#0=UNTIL
  14802. 62B6F :: NS:DUP#0=UNTIL
  14803. 62B88 :: HP:INCOMPDROP
  14804. 62B88 @  (1:comp -> N:Ob1...1:Obn) 
  14805. 62B9C :: HP:NTHCOMPDROP
  14806. 62B9C @  Internal GET (2:comp 1:#n -> 1:Ob) (Nothing if out of range)
  14807. 62BB0 :: HP:APPEND_SPACE
  14808. 62BB0 @  (1:"mesg" -> 1:" mesg")
  14809. 62BC4 :: HP:7UNROLL
  14810. 62BD8 :: HP:RESOROMP
  14811. 62BD8 @  Recall next romp's RPL :: RESOROMP XLIBname ; -> 1:rpl or nothing
  14812. 62BF1 :: HP:%10*
  14813. 62C05 :: HP:DUP@
  14814. 62C19 :: HP:DUPROMPTR@
  14815. 62C2D :: HP:#=ITE
  14816. 62C41 :: HP:INNERDUP
  14817. 62C41 @  Internal OBJ-> and DUP (1:comp -> N+2:Ob1...3:Obn 2:#n 1:#n)
  14818. 62C55 :: HP:NOTAND
  14819. 62C69 :: HP:TOTEMPSWAP
  14820. 62C69 @  Internal NEWOB and SWAP
  14821. 62C7D :: HP:ROT2DUP
  14822. 62C91 :: HP:ROTAND
  14823. 62CA5 :: HP:ROTOVER
  14824. 62CB9 :: HP:DUPDUP
  14825. 62CCD :: HP:OVERDUP
  14826. 62CE1 :: HP:COERCEDUP
  14827. 62CF5 :: HP:UNROTDUP
  14828. 62D09 :: HP:4UNROLLDUP
  14829. 62D1D :: HP:NTHCOMDDUP
  14830. 62D1D @  Internal GET (2:comp 1:#i -> 2:Ob 1:Ob)
  14831. 62D31 :: HP:OVERSWAP
  14832. 62D31 :: HP:OVERUNROT
  14833. 62D45 :: HP:ROLLSWAP
  14834. 62D59 :: HP:NULL$SWAP
  14835. 62D6D :: HP:SUB$SWAP
  14836. 62D81 :: HP:%MAXorder
  14837. 62D81 @  (2:% 1:% -> 2:%max 1:%min)
  14838. 62D9F :: HP:?SKIPSWAP
  14839. 62D9F :: NS:NOT?SWAP
  14840. 62D9F @  If False then SWAP
  14841. 62DB3 :: HP:1ABNDSWAP
  14842. 62DB3 @  :: 1GETLAM ABND SWAP ;
  14843. 62DCC :: HP:ROT#+SWAP
  14844. 62DCC :: HP:ROT+SWAP
  14845. 62DCC @  (3:#m 2:Any 1:#n -> 2:#m+n 1:Any)
  14846. 62DE5 :: HP:4PICK#+SWAP
  14847. 62DE5 :: HP:4PICK+SWAP
  14848. 62DE5 @  (4:#m 3:Any3 2:Any2 1:#n -> 4:#m 3:Any3 2:#m+n 1:Any2)
  14849. 62DFE :: HP:#+SWAP
  14850. 62E12 :: HP:#-SWAP
  14851. 62E26 :: HP:#1+SWAP
  14852. 62E3A :: HP:ZEROSWAP
  14853. 62E4E :: HP:#1-1SWAP
  14854. 62E4E @  #1- ONE SWAP
  14855. 62E67 :: HP:ONESWAP
  14856. 62E7B :: HP:COERCESWAP
  14857. 62E8F :: HP:%>%%SWAP
  14858. 62E8F @  Internal R->LR and SWAP (2:Any 1:% -> 2:%% 1:Any)
  14859. 62EA3 :: HP:%%*SWAP
  14860. 62EA3 @  Internal * and SWAP (3:Any 2:%% 1:%% -> 2:%% 1:Any)
  14861. 62EB7 :: HP:XYZ>ZTRUE
  14862. 62EB7 :: DROP(2,3)True
  14863. 62ECB :: HP:4ROLLSWAP
  14864. 62ECB @  ROT(4)
  14865. 62EDF :: HP:3PICKSWAP
  14866. 62EF3 :: HP:4PICKSWAP
  14867. 62F07 :: HP:1GETSWAP
  14868. 62F07 @  1GETLAM SWAP
  14869. 62F1B :: HP:?SWAP
  14870. 62F2F :: HP:!append$SWAP
  14871. 62F43 :: HP:NOT?SWAPDROP
  14872. 62F43 @  If False then SWAPDROP else DROP
  14873. 62F5C :: HP:?SWAPDROP
  14874. 62F5C @  If True then SWAPDROP else DROP
  14875. 62F75 :: HP:#1+NDROP
  14876. 62F75 :: HP:N+1DROP
  14877. 62F75 @  Internal DROPN and DROP (1:#n)
  14878. 62F89 :: HP:ROLLDROP
  14879. 62F89 :: DROP(n)
  14880. 62F9D :: HP:MDIMSDROP
  14881. 62FB1 :: HP:DUPROT
  14882. 62FB1 :: XY>YYX
  14883. 62FC5 :: HP:DROPROT
  14884. 62FC5 :: XYZW>YZX
  14885. 62FD9 :: HP:#1-ROT
  14886. 62FED :: HP:%%*ROT
  14887. 63001 :: HP:4ROLLROT
  14888. 63001 :: HP:FOURROLLROT
  14889. 63001 :: XYZW>YWXZ
  14890. 63015 :: HP:4UNROLLROT
  14891. 63015 :: XYZW>WYZX
  14892. 63029 :: HP:DROPOVER
  14893. 63029 :: XYZ>XYX
  14894. 6303D :: HP:EQOVER
  14895. 6303D @  (3:Any 2:Ob2 1:Ob1 -> 3:Any 2:T/F 1:Any)
  14896. 63051 :: HP:#+OVER
  14897. 63065 :: HP:#-OVER
  14898. 63079 :: HP:ZEROOVER
  14899. 6308D :: HP:UNROTOVER
  14900. 630A1 :: HP:4ROLLOVER
  14901. 630B5 :: HP:3PICKOVER
  14902. 630C9 :: HP:4PICKOVER
  14903. 630DD :: HP:DUPPICK
  14904. 630F1 :: HP:DUPROLL
  14905. 63105 :: HP:OVER#2+UNROL
  14906. 63105 :: NS:psh1
  14907. 63105 @  (Meta Ob -> Ob Meta)
  14908. 63119 :: HP:8UNROLL
  14909. 6312D :: HP:10UNROLL
  14910. 63141 :: HP:OVERARSIZE
  14911. 63141 @  (2:[] 1:Any -> 3:[] 2:Any 1:#elements)
  14912. 63155 :: HP:'ERRJMP
  14913. 63169 :: HP:caseERRJMP
  14914. 63169 @  (f) :: caseERRJMP <False> ;
  14915. 6317D :: HP:?CARCOMP
  14916. 6317D @  If True then CARCOMP
  14917. 63191 :: HP:NEWLINE$&$
  14918. 63191 :: HP:NEWLINE&$
  14919. 63191 @  Append <CR> (1:$ -> 1:$)
  14920. 631A5 :: HP:#1-{}N
  14921. 631A5 @  Internal subtract one and ->LIST (N:Ob1...1:#n -> 1:{})
  14922. 631B9 :: HP:TWO{}N
  14923. 631CD :: HP:THREE{}N
  14924. 631E1 :: HP:DUPINCOMP
  14925. 631E1 @  (1:comp -> N+2:comp N+1:Ob1...2:Obn 1:#n)
  14926. 631F5 :: HP:SWAPINCOMP
  14927. 631F5 @  (2:comp 1:Any -> N+2:any N+1:Ob1...2:Obn 1:#n)
  14928. 63209 :: HP:DUPNULL$?
  14929. 6321D :: HP:DUPNULLCOMP?
  14930. 63231 :: HP:DUPLENCOMP
  14931. 63245 :: HP:#1-SUB$
  14932. 63259 :: HP:1_#1-SUB
  14933. 63259 :: HP:1_#1-SUB$
  14934. 63259 @  SUB$ from 1 to #n-1 (2:$ 1:#n -> 1:$)
  14935. 6326D :: HP:LAST$
  14936. 6326D @  SUB$ from #n to end (2:$ 1:#n -> 1:$)
  14937. 63281 :: HP:#1+LAST$
  14938. 63295 :: HP:DUP$>ID
  14939. 632A9 :: HP:SWAP%>C%
  14940. 632A9 @  (2:%im 1:%re -> 1:C%)
  14941. 632BD :: HP:'NOP
  14942. 632BD @  Unevaluated No Operation
  14943. 632D1 :: HP:::NEVAL
  14944. 632D1 @  ->PROGRAM and EVAL (N+1:Ob1...2:Obn 1:#n)
  14945. 632E5 :: HP:2GETEVAL
  14946. 632E5 @  2GETLAM EVAL
  14947. 632F9 :: HP:DROPRDROP
  14948. 632F9 @  DROP RDROP
  14949. 63312 :: HP:SWAPCOLA
  14950. 63312 @  :: SWAPCOLA <This> <Never> ; == SWAP <This>
  14951. 63326 :: HP:XYZ>ZCOLA
  14952. 63326 @  :: XYZ>ZCOLA <This> <Never> ; == XYZ>Z <This>
  14953. 6333A :: HP:#0=?SKIP
  14954. 6333A @  (#) :: #0=?SKIP <If not zero> <Rest> ;
  14955. 63353 :: HP:#1=?SKIP
  14956. 6336C :: HP:#=?SKIP
  14957. 63385 :: HP:ONE_EQ
  14958. 63399 :: HP:#>?SKIP
  14959. 633B2 :: HP:COLASKIP
  14960. 633B2 @  :: :: COLASKIP <Never> ; <Never> <Rest> ;
  14961. 633C6 :: HP:NOT_UNTIL
  14962. 633DF :: HP:NOT_WHILE
  14963. 633F8 :: HP:DUP#0<>WHILE
  14964. 63411 :: HP:DUPINDEX@
  14965. 63425 :: HP:SWAPINDEX@
  14966. 63439 :: HP:OVERINDEX@
  14967. 6344D :: HP:SWAPLOOP
  14968. 63466 :: HP:DROPLOOP
  14969. 6347F :: HP:DUP#0_DO
  14970. 6347F @  Internal DUP and #0 #n DO (1:#n -> 1:#n)
  14971. 63498 :: HP:toLEN_DO
  14972. 63498 @  Start LOOP through all elements (1:comp -> 1:comp)
  14973. 634B6 :: HP:1GETABND
  14974. 634CA *  HP:DUP1LAMBIND
  14975. 634CF :: HP:1LAMBIND
  14976. 634E3 :: HP:caseTRUE
  14977. 634E3 @  (f) :: caseTRUE <False> ; == True / <False>
  14978. 634F7 :: HP:TRUEFALSE
  14979. 634F7 :: HP:TrueFalse
  14980. 6350B :: HP:FALSETRUE
  14981. 6350B :: HP:FalseTrue
  14982. 6351F :: HP:ZEROFALSE
  14983. 63533 :: HP:ONEFALSE
  14984. 63547 :: HP:#=casedrpfls
  14985. 63547 @  (# #') :: #=casedrpfls <False> ;      ==  False / # <False>
  14986. 6356A :: HP:casedrpfls
  14987. 6356A @  (Ob f) :: casedrpfls <False> ;        ==  False / Ob <False> 
  14988. 63583 :: HP:case2drpfls
  14989. 63583 @  (Ob1 Ob2 f) :: case2drpfls <False> ;  ==  False / Ob1 Ob2 <False> 
  14990. 6359C :: HP:caseFALSE
  14991. 6359C @  (f) :: caseFALSE <False> ;            ==  False / <False>
  14992. 635B0 :: HP:ORNOT
  14993. 635C4 :: HP:EQUALNOT
  14994. 635C4 @  Internal <> (2:Any 1:Any -> 1:T/F)
  14995. 635D8 :: HP:2DUPEQ
  14996. 635D8 @  Internal DUP2 and EQ (2:Any 1:Any -> 3:Any 2:Any 1:T/F)
  14997. 635EC *  HP:DUPEQ:
  14998. 635EC @  (Ob1)   :: DUPEQ: Ob2 ;   -> 2:Ob1 1:T/F)
  14999. 635F1 :: HP:EQ:
  15000. 635F1 @  (Ob1)   :: EQ: Ob2 ;   -> 1:T/F
  15001. 63605 :: HP:EQOR
  15002. 63619 :: HP:EQUALOR
  15003. 6362D :: HP:2#0=OR
  15004. 6362D @  #n or #m = #0 ? (2:#n 1:#m -> 1:T/F)
  15005. 6364B :: HP:OVER#0=
  15006. 6365F :: HP:OVER#<
  15007. 63673 :: HP:#<3
  15008. 63687 :: HP:DUP#<7
  15009. 636A0 :: HP:INNER#1=
  15010. 636A0 @  (1:comp -> 2:Ob 1:True / ...2:Obn 1:False)
  15011. 636B4 :: HP:#5=
  15012. 636C8 :: HP:#2<>
  15013. 636DC :: HP:OVER#>
  15014. 636F0 :: HP:#>1
  15015. 636F0 :: HP:ONE#>
  15016. 63704 :: HP:2DUP#+
  15017. 63704 :: HP:DUP3PICK#+
  15018. 63704 @  (2:#m 1:#n -> 3:#m 2:#n 1:#m+n)
  15019. 63718 :: HP:ROT#+
  15020. 6372C :: HP:OVER#+
  15021. 63740 :: HP:3PICK#+
  15022. 63754 :: HP:4PICK#+
  15023. 63768 :: HP:ROT#-
  15024. 6377C :: HP:OVER#-
  15025. 63790 :: HP:INDEX@#-
  15026. 63790 @  INDEX@ and #- (1:#n -> 1:#n-index)
  15027. 637A4 :: HP:SWAPOVER#-
  15028. 637A4 @  Internal SWAPOVER and #- (2:#n 1:#m -> 2:#m 1:#n-m)
  15029. 637B8 :: HP:ROT#1+
  15030. 637CC :: HP:#-+1
  15031. 637CC :: HP:#1--
  15032. 637CC @  Internal #- #1+
  15033. 637E0 :: HP:SWAP#1-
  15034. 637F4 :: HP:DROP#1-
  15035. 63808 :: HP:#+-1
  15036. 63808 :: HP:$1-+
  15037. 63808 @  Internal #+ #1-
  15038. 6381C :: HP:COLAITE
  15039. 6381C @  (f) :: COLAITE <True> <False> <Never> ;
  15040. 6383A :: HP:ERROROUT
  15041. 6383A @  ERRORSTO and ERRJMP (1:#errornumber)
  15042. 6384E mc HP:D0=DSKTOP
  15043. 6385D mc HP:D1=DSKTOP
  15044. 6386C :: HP:SWAP2DUP
  15045. 6386C :: XY>YXYX
  15046. 63880 :: HP:RSKIP
  15047. 63880 @  Advances return stack pointer over one object
  15048. 63880 @  :: RSWAP 'R DROP RSWAP ;
  15049. 6389E :: HP:GROB!ZERODRP
  15050. 6389E @  Clears a rectangular region in grob(5:grob 4:#x1 3:#y1 2:#x2 1:#y1 ->)
  15051. 638B2 :: HP:casedrptru
  15052. 638B2 @  (Ob f) :: casedrptru <False> ;  ==  True / Ob <False>
  15053. 638CB :: HP:NOTcaseTRUE
  15054. 638CB @  (f) :: NOTcaseTRUE <False> ;  == True / <False>
  15055. 638E4 :: HP:?SEMIDROP
  15056. 638E4 @  If True then Return, else DROP and continue (:: NOTcase DROP RDROP ;)
  15057. 638FD :: HP:SWAPUnDROP
  15058. 638FD :: NS:unzer
  15059. 638FD :: NS:pshDROP
  15060. 638FD @  (Meta1 Meta2 -> Meta2 meta1) (meta1 has no count)
  15061. 63911 :: HP:SWAPUnNDROP
  15062. 63911 :: NS:swapdrop
  15063. 63911 @  (Meta1 Meta2 -> Meta2)
  15064. 63925 :: HP:DUP'
  15065. 63939 :: HP:SWAP'
  15066. 6394D :: HP:DROP'
  15067. 63961 :: HP:OVER'
  15068. 63975 :: HP:STO'
  15069. 63989 :: HP:TRUE'
  15070. 6399D :: HP:ONEFALSE'
  15071. 639B6 :: HP:FALSE'
  15072. 639CA :: HP:#1+'
  15073. 639DE :: HP:'R'R
  15074. 639DE @  Recalls 2 objects from prev (And advances) -> (2:Ob1 1:Ob2)
  15075. 639FC :: HP:'RRDROP
  15076. 639FC @  Recalls 1 ob from prev & pops return stack
  15077. 63A15 :: HP:ONECOLA
  15078. 63A15 @  :: ONECOLA <This> <Never> ;  ==  One <This>
  15079. 63A29 :: LAM{'dvar}BIND
  15080. 63A29 :: HP:dvarlsBIND
  15081. 63A29 @  Store stk1 into ''dvar' (LAM)
  15082. 63A3D :: HP:'LAMLNAMESTO
  15083. 63A3D @  Store stk1 into ''LNAME' (LAM)
  15084. 63A56 :: HP:'xDEREQ
  15085. 63A56 @  Is pop stk1 stepwise deriv. ? (xDER = XLIB 2 248) (1:Any -> 1:T/F)
  15086. 63A6F :: HP:DUPNULL{}?
  15087. 63A88 :: HP:DUPZERO
  15088. 63A9C :: HP:DUPONE
  15089. 63AB0 :: HP:SWAPONE
  15090. 63AC4 :: HP:ONEDUP
  15091. 63AC4 :: HP:ONEONE
  15092. 63AD8 :: HP:DUPTWO
  15093. 63AEC :: HP:NOTcsdrpfls
  15094. 63AEC :: NS:NOTcaseDRPFLS
  15095. 63B05 :: HP:caseSIZEERR
  15096. 63B19 :: HP:NcaseSIZEERR
  15097. 63B19 @  If pop stk1 not True, then Bad Argument Value
  15098. 63B2D :: HP:CKREAL
  15099. 63B2D @  If copy type(stk1) <> %, then Bad Argument Type (1:Any -> 1:Any)
  15100. 63B46 :: HP:NcaseTYPEERR
  15101. 63B5A :: HP:'x*
  15102. 63B5A @  Unevaluated * (multiply)
  15103. 63B6E :: HP:'xDER
  15104. 63B6E @  Unevaluated delta (stepwise derivative)
  15105. 63B82 :: HP:%%/>%
  15106. 63B82 @  Internal / and LR->R (2:%% 1:%% -> 1:%)
  15107. 63B96 :: HP:UNCOERCE%%
  15108. 63B96 @  Internal SB->LR (1:# -> 1:%%)
  15109. 63BAA :: HP:DUP%0=
  15110. 63BBE :: HP:SWAP%%/
  15111. 63BBE @  Internal SWAP and / (2:%% 1:%% -> 1:%%)
  15112. 63BD2 :: HP:caseDrpBadKy
  15113. 63BD2 @  If True then Return, DROP and DoBadKey, else continue
  15114. 63BEB :: HP:caseDoBadKey
  15115. 63BEB :: HP:caseDEADKEY
  15116. 63BEB @  If True then Return, and DoBadKey, else continue
  15117. 63C04 :: HP:GROBDIMw
  15118. 63C04 @  Get Grob width (1:Grob -> 1:#width
  15119. 63C18 :: HP:%%*UNROT
  15120. 63C2C :: HP:SWAP4ROLL
  15121. 63C2C :: HP:XYZW>YWZX
  15122. 63C40 :: HP:2DUP5ROLL
  15123. 63C40 :: XYZ>YZYZX
  15124. 63C54 :: HP:SWAP3PICK
  15125. 63C54 :: XYZ>XZYX
  15126. 63C68 :: HP:3PICK3PICK
  15127. 63C68 :: XYZ>XYZXY
  15128. 63C7C :: HP:SWAP4PICK
  15129. 63C7C :: XYZW>XYWZX
  15130. 63C90 :: HP:OVER5PICK
  15131. 63C90 :: XYZW>XYZWZX
  15132. 63CA4 :: HP:EQUALcasedrp
  15133. 63CA4 @  (Any Ob1 Ob2) :: EQUALcasedrp <True> <False> ; == <True> / Any <False>
  15134. 63CBD :: HP:DUP#0=csDROP
  15135. 63CBD @  If DUP#0= then DROP & return, else continue
  15136. 63CD6 :: HP:jEQcase
  15137. 63CD6 @  If EQ then COLA else SKIP
  15138. 63CD6 @  (Ob1 Ob2) :: jEQcase <True> <False> ;  ==  <True> / <False>
  15139. 63CEA :: HP:ANDcase
  15140. 63CEA @  If AND then COLA else SKIP
  15141. 63CFE :: HP:EQUALcase
  15142. 63CFE @  If EQUAL then COLA else SKIP
  15143. 63D12 :: HP:#<case
  15144. 63D12 @  If #< then COLA else SKIP
  15145. 63D26 :: HP:#1=case
  15146. 63D26 @  If #1= then COLA else SKIP
  15147. 63D3A :: HP:#<>case
  15148. 63D3A @  If #<> then COLA else SKIP
  15149. 63D4E :: HP:#>2case
  15150. 63D4E @  If #2> then COLA else SKIP
  15151. 63D67 :: HP:#>case
  15152. 63D67 @  If #> then COLA else SKIP
  15153. 63D7B :: HP:j%0=case
  15154. 63D7B @  If %0= then COLA else SKIP
  15155. 63D8F :: HP:REALcase
  15156. 63D8F @  If TYPEREAL? then COLA else SKIP
  15157. 63DA3 :: HP:dARRYcase
  15158. 63DA3 @  If DUPTYPEARRY? then COLA else SKIP
  15159. 63DB7 :: HP:dLISTcase
  15160. 63DB7 @  If DUPTYPELIST? then COLA else SKIP
  15161. 63DCB :: HP:EditExstCase
  15162. 63DCB :: Editing?case
  15163. 63DCB @  If Editing? then COLA else SKIP
  15164. 63DDF :: HP:ANDNOTcase
  15165. 63DDF @  If ANDNOT then COLA else SKIP
  15166. 63DF3 :: HP:EQUALNOTcase
  15167. 63DF3 @  If EQUALNOT then COLA else SKIP
  15168. 63E07 :: HP:dIDNTNcase
  15169. 63E07 @  If DUPTYPEIDNT? NOT then COLA else SKIP
  15170. 63E1B :: HP:dREALNcase
  15171. 63E1B @  If DUPTYPEREAL? NOT then COLA else SKIP
  15172. 63E2F :: HP:EQIT
  15173. 63E2F @  If EQ then do else SKIP
  15174. 63E48 :: HP:DUP#0=IT
  15175. 63E61 :: HP:ANDITE
  15176. 63E75 :: HP:EQITE
  15177. 63E89 :: HP:#0=ITE
  15178. 63E9D :: HP:#<ITE
  15179. 63EB1 :: HP:#>ITE
  15180. 63EC5 :: HP:DUP#0=ITE
  15181. 63ED9 :: HP:UserITE
  15182. 63ED9 @  Is userflag #n set? & ITE (1:#n)
  15183. 63EED :: HP:SysITE
  15184. 63EED @  Is systemflag #n set? & ITE (1:#n)
  15185. 63F01 :: HP:top&Cr
  15186. 63F01 @  (Meta1 Meta2 -> ALG_Meta1Meta2&Ob) (Ob next in this instr. stream)
  15187. 63F01 @  Example: A B + #3 C D - #3  :: top&Cr x* ; -> ALG_(A+B)*(C-D)
  15188. 63F1A :: HP:metaROTDUP
  15189. 63F1A :: NS:rotdup
  15190. 63F1A @  (Meta1 Meta2 Meta3 -> Meta2 Meta3 Meta1 Meta1)
  15191. 63F2E :: HP:ROTUntop&
  15192. 63F2E :: NS:rottop&
  15193. 63F2E @  (Meta1 Meta2 Meta3 -> Meta2 Meta3&Meta1)
  15194. 63F42 :: HP:roll2top&
  15195. 63F42 :: HP:rolltwotop&
  15196. 63F42 :: NS:unrottop&
  15197. 63F42 @  (Meta1 Meta2 Meta3 -> Meta3 Meta1&Meta2)
  15198. 63F56 :: HP:plDRPpZparg
  15199. 63F56 :: NS:opzerpsharg
  15200. 63F56 @  Splits meta object (Meta1&Meta2&<op> -> Meta2 Meta1) (<op> is dropped)
  15201. 63F56 @  Example: A B + C D - * #7 -> C D - #3 A B + #3
  15202. 63F6A :: HP:&$SWAP
  15203. 63F6A @  Internal + and SWAP ($)
  15204. 63F7E :: HP:SWAPCKREF
  15205. 63F92 :: HP:pZpargSWAPUn
  15206. 63F92 :: NS:pshzerarg
  15207. 63F92 @  (Meta without last operator -> Meta1 Meta2)
  15208. 63F92 @  Example: A B + C D - #6 -> A B + #3 C D - #3
  15209. 63FA6 :: HP:DROPNDROP
  15210. 63FA6 :: DROPdrop
  15211. 63FA6 @  (Meta Ob ->)
  15212. 63FBA :: HP:2OVER
  15213. 63FBA :: XYZW>XYZWXY
  15214. 63FCE :: HP:?Ob>Seco
  15215. 63FCE @  If DUPTYPESECO? NOT then Ob>Seco
  15216. 63FE7 :: HP:Ob>Seco
  15217. 63FE7 @  Internal 1 ->PROGRAM (1:Any -> 1:seco)
  15218. 63FFB :: HP:2Ob>Seco
  15219. 63FFB @  Internal 2 ->PROGRAM (2:Any 1:Any -> 1:seco)
  15220. 6400F :: HP:ExitAtLOOP
  15221. 6400F :: HP:ZEROISTOPSTO
  15222. 6400F @  Stores zero to ISTOP
  15223. 64023 :: HP:RclHiddenVar
  15224. 64023 @  Hidden recall (1:ID/LAM) -> (2:contents 1:True / 1:False)
  15225. 64037 :: HP:WithHidden
  15226. 64037 @  Sets Hidden dir environment for next command only
  15227. 6405A :: RestVarResERRJMP
  15228. 64078 :: HP:StoHiddenVar
  15229. 64078 @  Hidden store (2:Any 1:ID/LAM)
  15230. 6408C :: HP:PuHiddenVar
  15231. 6408C @  Purges hidden variable (1:ID/LAM)
  15232. 640A0 :: HP:SaveVarRes
  15233. 640A0 @  Binds CONTEXT and TMPCONTEXT to 2 NULLLAMs
  15234. 640BE :: HP:SetHiddenRes
  15235. 640BE @  Stores HiddenDir to both CONTEXT and TMPCONTEXT
  15236. 640CD :: SetNullHidden&Rcl
  15237. 640CD @  Stores NULLDIR as Hidden directory and recalls it (1:->DIR)
  15238. 640FA :: HP:RestVarRes
  15239. 640FA @  Restores CONTEXT (1LAM) and TMPCONTEXT (2LAM) from LAMs
  15240. 64127 P  HP:Embedded?
  15241. 64127 @  Returns TRUE is ob1 is embedded in or is ob2 (2:Ob2 1:Ob1 -> 1:T/F)
  15242. 6416D :: HP:UStackDepth
  15243. 6416D @  Returns stack depth in upSTK application
  15244. 64190 :: HP:Sig?ErrJmp
  15245. 6419A {} SigErr{}
  15246. 6419A @  If ERROR@ is one of {<13Eh> <123h> <DFFh>} then ERRJMP
  15247. 641C7 P  NS:DUPAndThen
  15248. 641CC mc HP:DupAndThen
  15249. 641CC @  DUP and execute next object
  15250. 641FC P  HP:ZEROZERO
  15251. 64209 P  HP:#ZERO#ONE
  15252. 64214 @  MC: push A.A and C.A as # (small)
  15253. 64236 @  MC: push A.A as # (small)
  15254. 6427A P  HP:#ZERO#SEVEN
  15255. 6428A P  HP:#ONE#27
  15256. 6429D P  HP:#TWO#ONE
  15257. 642AF P  HP:#TWO#TWO
  15258. 642BF P  HP:#TWO#FOUR
  15259. 642D1 P  HP:#THREE#FOUR
  15260. 642E3 :: HP:#FIVE#FOUR
  15261. 642F7 P  FIVE#FOUR
  15262. 64309 :: HP:ZEROZEROZERO
  15263. 6431D :: HP:ZEROZEROONE
  15264. 64331 :: HP:ZEROZEROTWO
  15265. 64345 :: HP:SubMetaOb
  15266. 64345 @  SUB of Meta object (Meta #start #end -> Meta') (Does range check)
  15267. 64345 @  Example: 1 2 3 4 5 6 7 8 9 #9 #4 #8 -> 4 5 6 7 8 #5 
  15268. 64368 :: DROPSWAPDROP
  15269. 64368 :: DROP(1,3)
  15270. 643BD :: HP:SubMetaOb1
  15271. 643BD @  Drops obs from meta starting from #start+1
  15272. 643BD @  (meta Any #start #n #start -> meta Any #n)(meta count #n is displaced)
  15273. 643BD @  Example:1 2 3 4 5 6 7 8 9 #2 #6 #9 #6 -> 1 2 3 4 5 6 #2 #6
  15274. 643EF :: HP:matchob?
  15275. 643EF @  Is ob equal to any element of comp? (2:Ob 1:comp -> 2:Ob 1:T / 1:F)
  15276. 643F9 go HP:matchob?Lp
  15277. 643F9 @  Is ob equal to one of returnstack composite? (2:Ob -> 2:Ob 1:T | 1:F)
  15278. 643F9 @  Example: :: :: 'ID_X GOTO matchob?Lp ; ID_Y ID_X ID_Z ;
  15279. 643F9 @           Finds ID_X and returns TRUE
  15280. 64426 :: HP:POSCOMP
  15281. 64426 @  Match ob to composite with predicate
  15282. 64426 @  (3:comp 2:Ob 1:pred -> 1:#n / #0 if not found)
  15283. 64426 @  Example: To find first ob less than five: :: {list} %5 ' %< POSCOMP ;
  15284. 6443A go HP:nextpos
  15285. 6443A @  (3:Ob 2:pred 1:#index -> 1:#n / #0 if not found)
  15286. 6443A @  Do >R to match to stack composite
  15287. 64449 :: NS:3DROPZERO
  15288. 6448A :: HP:#=POSCOMP
  15289. 6448A @  Example: {list} #5 #=POSCOMP searches from #5 in the list
  15290. 644A3 :: HP:EQUALPOSCOMP
  15291. 644A3 @  Internal POS (2:comp 1:Any -> 1:#i / 1:#0 if not found)
  15292. 644BC :: HP:NTHOF
  15293. 644BC @  Internal POS (2:Ob 1:Comp -> 1:#n | #0)
  15294. 644D0 :: HP:Find1stTrue
  15295. 644D0 @  Finds matching object in composite
  15296. 644D0 @  (2:comp 1:Matchingprg -> 2:Ob 1:True / 1:False)
  15297. 644D0 @  Example: To find first 0 :: {list} ' :: %0 EQUAL ; Find1stTrue ;
  15298. 644D0 @  Example: To see if Find1stT.1 calls itself:
  15299. 644D0 @  :: ' Find1stT.1 ' :: ' Find1st.1 EQUAL ; Find1stTrue ;
  15300. 644EE :: HP:Find1stT.1
  15301. 644EE @  Matches to composite in return stack (1:prg -> 2:Ob 1:T / 1:F)
  15302. 644EE @  Example: Find1stTrue calls like this: :: SWAP >R COLA Find1stTrue.1 ;
  15303. 6452F :: HP:Lookup
  15304. 6452F @  Does matching 2 at a time, if first matches, gives second
  15305. 6452F @  (3:Ob 2:matchingprg 1:comp -> 2:Nextob 1:True / 1:False)
  15306. 64548 :: HP:Lookup.1
  15307. 64548 @  Does matching to composite in return stack 2 at a time
  15308. 64548 @  If first matches, gives second else gives last
  15309. 64548 @  (2:Ob 1:matchprg -> 2:Ob 1:True / 3:Ob 2:Lastob 1:False)
  15310. 64593 :: HP:EQLookup
  15311. 64593 @  :: ' EQ SWAP LookUp ;
  15312. 645B1 P  HP:POS$
  15313. 645B1 P  HP:POSCHR
  15314. 645B1 @  Internal POS w/start (2:$ 1:$/Char 1:#start -> 1:#pos)
  15315. 645BD P  HP:POS$REV
  15316. 645BD P  HP:POSCHRREV
  15317. 645BD @  Internal POS w/limit (3:$ 2:$/Char 1:#limit -> #pos)
  15318. 6475C :: HP:CHR>$
  15319. 64775 :: HP:STRIPTAGS
  15320. 647A2 :: HP:STRIPTAGSl2
  15321. 647A2 @  Internal DTAG level 2 object
  15322. 647BB :: HP:TAGOBS
  15323. 647BB @  Tags objects on stack (...2:Ob2 1:{"tagn"..."tag2"})
  15324. 6480B P  HP:NEXTCOMPOB
  15325. 6480B @  Return ob with offset (GETI !!) (Use starting offset #5)
  15326. 6480B @  (2:comp 1:#offset -> 4:comp 3:#nextoffset 2:ob 1:True /2:comp 1:False)
  15327. 648BD :: HP:>LASTRAM-WOR
  15328. 648EF CD
  15329. 64B12 #  HP:FORTYFOUR
  15330. 64B12 #  NS:##2C
  15331. 64B1C #  HP:FORTYFIVE
  15332. 64B1C #  NS:##2D
  15333. 64B26 #  HP:FORTYSIX
  15334. 64B26 #  NS:##2E
  15335. 64B30 #  HP:FORTYSEVEN
  15336. 64B30 #  dir
  15337. 64B30 #  NS:##2F
  15338. 64B3A #  HP:FORTYEIGHT
  15339. 64B3A #  NS:##30
  15340. 64B44 #  HP:FORTYNINE
  15341. 64B44 #  NS:##31
  15342. 64B4E #  HP:FIFTY
  15343. 64B4E #  NS:##32
  15344. 64B58 #  HP:FIFTYONE
  15345. 64B58 #  NS:##33
  15346. 64B62 #  HP:FIFTYTWO
  15347. 64B62 #  NS:##34
  15348. 64B6C #  HP:FIFTYTHREE
  15349. 64B6C #  HP:STRLIST
  15350. 64B6C #  NS:##35
  15351. 64B76 #  HP:FIFTYFOUR
  15352. 64B76 #  NS:##36
  15353. 64B80 #  HP:FIFTYFIVE
  15354. 64B80 #  NS:##37
  15355. 64B8A #  HP:FIFTYSIX
  15356. 64B8A #  NS:##38
  15357. 64B94 #  HP:FIFTYSEVEN
  15358. 64B94 #  NS:##39
  15359. 64B9E #  HP:FIFTYEIGHT
  15360. 64B9E #  NS:##3A
  15361. 64BA8 #  HP:FIFTYNINE
  15362. 64BA8 #  NS:##3B
  15363. 64BB2 #  HP:SIXTY
  15364. 64BB2 #  NS:##3C
  15365. 64BBC #  HP:SIXTYONE
  15366. 64BBC #  NS:##3D
  15367. 64BC6 #  HP:SIXTYTWO
  15368. 64BC6 #  NS:##3E
  15369. 64BD0 #  HP:SIXTYTHREE
  15370. 64BD0 #  lreal
  15371. 64BD0 #  NS:##3F
  15372. 64BDA #  HP:BINT40h
  15373. 64BDA #  HP:SIXTYFOUR
  15374. 64BDA #  HP:YHI
  15375. 64BDA #  NS:##40
  15376. 64BE4 #  HP:ARRYREAL
  15377. 64BE4 #  HP:BINT_65d
  15378. 64BE4 #  NS:##41
  15379. 64BEE #  HP:FOURTWO
  15380. 64BEE #  NS:##42
  15381. 64BF8 #  HP:FOURTHREE
  15382. 64BF8 #  NS:##43
  15383. 64C02 #  HP:SIXTYEIGHT
  15384. 64C02 #  NS:##44
  15385. 64C0C #  HP:FOURFIVE
  15386. 64C0C #  NS:##45
  15387. 64C16 #  HP:SEVENTY
  15388. 64C16 #  NS:##46
  15389. 64C20 #  HP:SEVENTYFOUR
  15390. 64C20 #  NS:##4A
  15391. 64C2A #  HP:SEVENTYNINE
  15392. 64C2A #  lcmp
  15393. 64C2A #  NS:##4F
  15394. 64C34 #  HP:EIGHTY
  15395. 64C34 #  NS:##50
  15396. 64C3E #  HP:EIGHTYONE
  15397. 64C3E #  HP:LISTREAL
  15398. 64C3E #  NS:##51
  15399. 64C48 #  HP:LISTCMP
  15400. 64C48 #  NS:##52
  15401. 64C52 #  HP:FIVETHREE
  15402. 64C52 #  NS:##53
  15403. 64C5C #  HP:FIVEFOUR
  15404. 64C5C #  NS:##54
  15405. 64C66 #  HP:2LIST
  15406. 64C66 #  NS:##55
  15407. 64C70 #  HP:FIVESIX
  15408. 64C70 #  NS:##56
  15409. 64C7A #  HP:LISTLAM
  15410. 64C7A #  NS:##57
  15411. 64C84 #  HP:BINT_91d
  15412. 64C84 #  NS:##5B
  15413. 64C8E #  HP:BINT_96d
  15414. 64C8E #  NS:##60
  15415. 64C98 #  HP:IDREAL
  15416. 64C98 #  NS:##61
  15417. 64CA2 #  NS:##62
  15418. 64CAC #  HP:ONEHUNDRED
  15419. 64CAC #  NS:##64
  15420. 64CB6 #  NS:##65
  15421. 64CC0 #  NS:##6F
  15422. 64CC0 #  HP:char
  15423. 64CCA #  NS:##70
  15424. 64CD4 #  NS:##71
  15425. 64CDE #  NS:##72
  15426. 64CE8 #  NS:##73
  15427. 64CE8 #  HP:BINT_115d
  15428. 64CF2 #  NS:##74
  15429. 64CF2 #  HP:BINT_116d
  15430. 64CFC #  NS:##75
  15431. 64D06 #  HP:BINT_122d
  15432. 64D06 #  NS:##7A
  15433. 64D10 #  HP:BINT80h
  15434. 64D10 #  NS:##80
  15435. 64D1A #  HP:BINT_130d
  15436. 64D1A #  HP:XHI-1
  15437. 64D1A #  NS:##82
  15438. 64D24 #  HP:BINT_131d
  15439. 64D24 #  HP:XHI
  15440. 64D24 #  NS:##83
  15441. 64D2E #  NS:##8F
  15442. 64D2E #  lib
  15443. 64D38 #  HP:SYMBREAL
  15444. 64D38 #  NS:##91
  15445. 64D42 #  NS:##92
  15446. 64D4C #  NS:##9A
  15447. 64D56 #  HP:SYMBUNIT
  15448. 64D56 #  NS:##9E
  15449. 64D60 #  NS:##9F
  15450. 64D60 #  bak
  15451. 64D6A #  HP:SYMOB
  15452. 64D6A #  NS:##A0
  15453. 64D74 #  HP:SYMREAL
  15454. 64D74 #  NS:##A1
  15455. 64D7E #  NS:##A2
  15456. 64D88 #  NS:##A5
  15457. 64D92 #  HP:SYMID
  15458. 64D92 #  NS:##A6
  15459. 64D9C #  HP:SYMLAM
  15460. 64D9C #  NS:##A7
  15461. 64DA6 #  NS:##A9
  15462. 64DB0 #  HP:SYMSYM
  15463. 64DB0 #  NS:##AA
  15464. 64DBA #  HP:SYMEXT
  15465. 64DBA #  NS:##AE
  15466. 64DC4 #  NS:##B1
  15467. 64DCE #  NS:##BB
  15468. 64DD8 #  HP:BINTC0h
  15469. 64DD8 #  NS:##C0
  15470. 64DE2 #  HP:2GROB
  15471. 64DE2 #  NS:##CC
  15472. 64DEC #  HP:TAGGEDANY
  15473. 64DEC #  NS:##D0
  15474. 64DF6 #  HP:EXTREAL
  15475. 64DF6 #  NS:##E1
  15476. 64E00 #  HP:EXTSYM
  15477. 64E00 #  NS:##EA
  15478. 64E0A #  HP:2EXT
  15479. 64E0A #  NS:##EE
  15480. 64E14 #  HP:ROMPANY
  15481. 64E14 #  NS:##F0
  15482. 64E1E #  HP:BINT253
  15483. 64E1E #  NS:##FD
  15484. 64E28 #  HP:BINT255d
  15485. 64E28 #  NS:##FF
  15486. 64E32 #  HP:REALOBOB
  15487. 64E32 #  NS:##100
  15488. 64E3C #  HP:#_102
  15489. 64E3C #  NS:##102
  15490. 64E46 #  NS:##106
  15491. 64E50 #  NS:##107
  15492. 64E5A #  NS:##110
  15493. 64E64 #  HP:3REAL
  15494. 64E64 #  NS:##111
  15495. 64E6E #  NS:##123
  15496. 64E78 #  NS:##124
  15497. 64E82 #  NS:##131
  15498. 64E8C #  NS:##132
  15499. 64E96 #  NS:##133
  15500. 64EA0 #  NS:##134
  15501. 64EAA #  NS:##135
  15502. 64EB4 #  NS:##136
  15503. 64EBE #  NS:##137
  15504. 64EC8 #  NS:##138
  15505. 64ED2 #  NS:##139
  15506. 64EDC #  NS:##13A
  15507. 64EE6 #  NS:##13B
  15508. 64EF0 #  NS:##13D
  15509. 64EFA #  NS:##13E
  15510. 64F04 #  HP:INTEGER337
  15511. 64F04 #  NS:##151
  15512. 64F0E #  NS:##200
  15513. 64F18 #  NS:##205
  15514. 64F22 #  NS:##311
  15515. 64F2C #  NS:##411
  15516. 64F36 #  NS:##412
  15517. 64F40 #  NS:##444
  15518. 64F4A #  NS:##451
  15519. 64F54 #  NS:##452
  15520. 64F5E #  NS:##510
  15521. 64F68 #  NS:##511
  15522. 64F72 #  NS:##550
  15523. 64F7C #  NS:##610
  15524. 64F86 #  NS:##650
  15525. 64F90 #  NS:##700
  15526. 64F9A #  NS:##861
  15527. 64FA4 #  NS:##862
  15528. 64FAE #  NS:##865
  15529. 64FB8 #  NS:##86E
  15530. 64FC2 #  NS:##A03
  15531. 64FC2 #  HP:ATTNERR
  15532. 64FCC #  NS:##A11
  15533. 64FD6 #  NS:##A12
  15534. 64FE0 #  NS:##A1A
  15535. 64FEA #  NS:##A21
  15536. 64FF4 #  NS:##A22
  15537. 64FFE #  NS:##A2A
  15538. 65008 #  NS:##A61
  15539. 65012 #  NS:##A62
  15540. 6501C #  NS:##A65
  15541. 65026 #  NS:##A6E
  15542. 65030 #  NS:##AA1
  15543. 6503A #  NS:##AA2
  15544. 65044 #  NS:##AAA
  15545. 6504E #  NS:##C06
  15546. 65058 #  NS:##C07
  15547. 65062 #  NS:##C08
  15548. 6506C #  NS:##C0A
  15549. 6506C #  HP:Connecting
  15550. 65076 #  NS:##C0B
  15551. 65080 #  NS:##DFF
  15552. 6508A #  NS:##E00
  15553. 6508A #  HP:EXTOBOB
  15554. 65094 #  NS:##70000
  15555. 6509E #  NS:##FFFFF
  15556. 6509E #  HP:MINUSONE
  15557. 650A8 %  HP:%e
  15558. 650BD %  HP:%.5
  15559. 650D2 %  NS:%-.5
  15560. 650E7 %  HP:%10
  15561. 650FC %  HP:%180
  15562. 65111 %  NS:%200
  15563. 65126 %  HP:%360
  15564. 6513B %  NS:%400
  15565. 65150 $  NS:tok]
  15566. 6515C $  "[ "
  15567. 6516A $  NS:tok[
  15568. 65176 $  HP:tok{
  15569. 65182 $  NS:tok}
  15570. 6518E $  HP:toksharp
  15571. 6518E $  NS:tok#
  15572. 6519A $  "_"
  15573. 651A6 $  NS:tok$
  15574. 651B2 $  NS:tok&
  15575. 651BE $  HP:tokESC
  15576. 651CA $  NS:tok>>
  15577. 651D6 $  HP:tok<<
  15578. 651E2 $  HP:tokexponent
  15579. 651E2 $  NS:tokE
  15580. 651EE $  "\200"
  15581. 651EE $  "\<)"
  15582. 651FA $  "\205"
  15583. 651FA $  "Sigma"
  15584. 65206 $  NS:tok|
  15585. 65212 $  NS:14SPACE$
  15586. 65238 $  HP:NEWLINE$
  15587. 65244 $  tokder
  15588. 65254 $  HP:SPACE$
  15589. 65254 $  HP:tok_
  15590. 65260 $  $_UNKNOWN
  15591. 65278 $  HP:tokquote
  15592. 65278 @  """
  15593. 65284 $  HP:tok'
  15594. 65290 $  HP:tok,
  15595. 6529C $  HP:tok.
  15596. 652A8 $  NS:tok;
  15597. 652B4 $  NS:tok(
  15598. 652C0 $  NS:tok)
  15599. 652CC $  NS:tok^
  15600. 652D8 $  NS:tok*
  15601. 652E4 $  NS:tok/
  15602. 652F0 $  NS:tok+
  15603. 652FC $  HP:tok-
  15604. 65308 $  HP:tok=
  15605. 65314 $  "\203"
  15606. 65314 $  NS:toksqrt
  15607. 65320 $  "\210"
  15608. 6532C $  NS:$_GROB
  15609. 6533E $  NS:$_C$
  15610. 6534C $  HP:tok0
  15611. 65358 $  HP:tok1
  15612. 65364 $  NS:tok2
  15613. 65370 $  NS:tok3
  15614. 6537C $  NS:tok4
  15615. 65388 $  NS:tok5
  15616. 65394 $  NS:tok6
  15617. 653A0 $  NS:tok7
  15618. 653AC $  HP:tok8
  15619. 653B8 $  HP:tok9
  15620. 653C4 #  <726A5h>
  15621. 653C4 @  Reference to message table for library 00B (XLIB 11)
  15622. 653CE #  <72704h>
  15623. 653CE @  Reference to message table for library 001 (XLIB 1)
  15624. 653D8 #  <72DCFh>
  15625. 653D8 @  Reference to message table for library 002 (XLIB 2)
  15626. 653E2 #  <72F1Eh>
  15627. 653E2 @  Reference to message table for library 003 (XLIB 3)
  15628. 653EC #  <736F9h>
  15629. 653EC @  Reference to message table for library 005 (XLIB 5)
  15630. 653F6 #  <7232Ch>
  15631. 653F6 @  Reference to message table for library 00C (XLIB 12)
  15632. 65400 #  <7260Ah>
  15633. 65400 @  Reference to message table for library 00D (XLIB 13)
  15634. 6540A #  <72281h>
  15635. 6540A @  Reference to message table for library 00A (XLIB 10)
  15636. 65414 #  <72FE6h>
  15637. 65414 @  Reference to message table for library 006 (XLIB 6)
  15638. 6541E ch HP:CHR_00
  15639. 65425 ch HP:CHR_...
  15640. 6542C ch HP:CHR_DblQuote
  15641. 65433 ch HP:CHR_#
  15642. 6543A ch HP:CHR_*
  15643. 65441 ch HP:CHR_+
  15644. 65448 ch HP:CHR_,
  15645. 6544F ch HP:CHR_-
  15646. 65456 ch HP:CHR_.
  15647. 6545D ch HP:CHR_/
  15648. 65464 ch HP:CHR_0
  15649. 6546B ch HP:CHR_1
  15650. 65472 ch HP:CHR_2
  15651. 65479 ch HP:CHR_3
  15652. 65480 ch HP:CHR_4
  15653. 65487 ch HP:CHR_5
  15654. 6548E ch HP:CHR_6
  15655. 65495 ch HP:CHR_7
  15656. 6549C ch HP:CHR_8
  15657. 654A3 ch HP:CHR_9
  15658. 654AA ch HP:CHR_:
  15659. 654B1 ch HP:CHR_;
  15660. 654B8 ch HP:CHR_<
  15661. 654BF ch HP:CHR_=
  15662. 654C6 ch HP:CHR_>
  15663. 654CD ch HP:CHR_A
  15664. 654D4 ch HP:CHR_B
  15665. 654DB ch HP:CHR_C
  15666. 654E2 ch HP:CHR_D
  15667. 654E9 ch HP:CHR_E
  15668. 654F0 ch HP:CHR_F
  15669. 654F7 ch HP:CHR_G
  15670. 654FE ch HP:CHR_H
  15671. 65505 ch HP:CHR_I
  15672. 6550C ch HP:CHR_J
  15673. 65513 ch HP:CHR_K
  15674. 6551A ch HP:CHR_L
  15675. 65521 ch HP:CHR_M
  15676. 65528 ch HP:CHR_N
  15677. 6552F ch HP:CHR_O
  15678. 65536 ch HP:CHR_P
  15679. 6553D ch HP:CHR_Q
  15680. 65544 ch HP:CHR_R
  15681. 6554B ch HP:CHR_S
  15682. 65552 ch HP:CHR_T
  15683. 65559 ch HP:CHR_U
  15684. 65560 ch HP:CHR_V
  15685. 65567 ch HP:CHR_W
  15686. 6556E ch HP:CHR_X
  15687. 65575 ch HP:CHR_Y
  15688. 6557C ch HP:CHR_Z
  15689. 65583 ch HP:CHR_a
  15690. 6558A ch HP:CHR_b
  15691. 65591 ch HP:CHR_c
  15692. 65598 ch HP:CHR_d
  15693. 6559F ch HP:CHR_e
  15694. 655A6 ch HP:CHR_f
  15695. 655AD ch HP:CHR_g
  15696. 655B4 ch HP:CHR_h
  15697. 655BB ch HP:CHR_i
  15698. 655C2 ch HP:CHR_j
  15699. 655C9 ch HP:CHR_k
  15700. 655D0 ch HP:CHR_l
  15701. 655D7 ch HP:CHR_m
  15702. 655DE ch HP:CHR_n
  15703. 655E5 ch HP:CHR_o
  15704. 655EC ch HP:CHR_p
  15705. 655F3 ch HP:CHR_q
  15706. 655FA ch HP:CHR_r
  15707. 65601 ch HP:CHR_s
  15708. 65608 ch HP:CHR_t
  15709. 6560F ch HP:CHR_u
  15710. 65616 ch HP:CHR_v
  15711. 6561D ch HP:CHR_w
  15712. 65624 ch HP:CHR_x
  15713. 6562B ch HP:CHR_y
  15714. 65632 ch HP:CHR_z
  15715. 65639 ch HP:CHR_->
  15716. 65640 ch HP:CHR_<<
  15717. 65647 ch HP:CHR_>>
  15718. 6564E ch HP:CHR_Angle
  15719. 65655 ch HP:CHR_Deriv
  15720. 6565C ch HP:CHR_Integral
  15721. 65663 ch HP:CHR_LeftPar
  15722. 6566A ch HP:CHR_Newline
  15723. 65671 ch HP:CHR_Pi
  15724. 65678 ch HP:CHR_RightPar
  15725. 6567F ch HP:CHR_Sigma
  15726. 65686 ch HP:CHR_Space
  15727. 6568D ch HP:CHR_UndScore
  15728. 65694 ch HP:CHR_[
  15729. 6569B ch HP:CHR_]
  15730. 656A2 ch HP:CHR_{
  15731. 656A9 ch HP:CHR_}
  15732. 656B0 ch HP:CHR_<=
  15733. 656B7 ch HP:CHR_>=
  15734. 656BE ch HP:CHR_<>
  15735. 656C5 $  HP:$_R<<
  15736. 656D5 $  HP:$_R<Z
  15737. 656E5 $  HP:$_XYZ
  15738. 656F5 $  HP:$_<<>>
  15739. 65703 $  HP:$_{}
  15740. 65711 $  HP:$_[]
  15741. 6571F $  HP:$_''
  15742. 6572D $  HP:$_::
  15743. 6573B $  HP:$_LRParens
  15744. 6573B $  NS:$_()
  15745. 65749 $  HP:$_2DQ
  15746. 65757 $  HP:$_ECHO
  15747. 65769 $  HP:$_EXIT
  15748. 6577B $  HP:$_Undefined
  15749. 65797 $  HP:$_RAD
  15750. 657A7 $  HP:$_GRAD
  15751. 6594E P  HP:putnibs
  15752. 6595A P  HP:getnibs
  15753. 659DE :: HP:Symb>HBuff
  15754. 659DE @  Draws symbolic to HBUFF (1:sym) (Saves current application 1st)
  15755. 65A06 :: 
  15756. 65A29 :: NOP::
  15757. 65A29 @  A NOP program ( :: NOP ; )
  15758. 65A38 :: NOP::
  15759. 65A38 @  A NOP program ( :: NOP ; )
  15760. 65A47 ::
  15761. 65A6F ::
  15762. 65A83 ::
  15763. 65ABF ::
  15764. 65AF1 ::
  15765. 65B23 ::
  15766. 65BAA ::
  15767. 65BC8 ::
  15768. 65BF5 ::
  15769. 65C3B ::
  15770. 65C54 ::
  15771. 65C81 ::
  15772. 65CCC {} null{}
  15773. 65CD6 P
  15774. 65E5C P
  15775. 65EAC P
  15776. 65EE1 ::
  15777. 65EF5 P
  15778. 65F06 ::
  15779. 65F1A P
  15780. 65FC8 P
  15781. 65FF6 ::
  15782. 66055 ::
  15783. 66091 ::
  15784. 660FF ::
  15785. 66118 :: 3PICK#1-SWAP#1+
  15786. 66118 @  (3:#a 2:#b 3:#c -> 4:#a 3:#b 2:#a-1 1:#c+1)
  15787. 6619A ::
  15788. 661B8 ::
  15789. 661DB ::
  15790. 661FE P
  15791. 6622E P
  15792. 66274 P
  15793. 66287 P
  15794. 6629F P
  15795. 66300 P
  15796. 66332 ::
  15797. 6634B P
  15798. 663D3 P
  15799. 663E9 P
  15800. 663FF P
  15801. 66415 P
  15802. 66425 P
  15803. 6645B P
  15804. 6646E P
  15805. 66481 P
  15806. 66494 P
  15807. 664C6 ::
  15808. 664E9 ::
  15809. 66502 ::
  15810. 6651B P
  15811. 66527 P
  15812. 6655F P
  15813. 66597 P
  15814. 665C1 P
  15815. 665E7 ::
  15816. 6660F ::
  15817. 6662D P
  15818. 6668A ::
  15819. 666B2 ::
  15820. 666DA ::
  15821. 666F8 ::
  15822. 6672F ::
  15823. 6675C ::
  15824. 66793 P
  15825. 667E8 P
  15826. 667FD P
  15827. 66852 P
  15828. 66864 P
  15829. 66991 P
  15830. 66B4A P
  15831. 66B74 P
  15832. 66BCB P
  15833. 66C1B ::
  15834. 66C39 ::
  15835. 66C7A ::
  15836. 66CB1 ::
  15837. 66CCA ::
  15838. 66CDE ::
  15839. 66CF2 ::
  15840. 66D06 gr BlankedSmall
  15841. 66D06 @  blanked cursor (Graphic 4 x 6)
  15842. 66D26 gr SigmaBig
  15843. 66D26 @  big Sigma (Graphic 16 x 18)
  15844. 66D82 gr 2DotsGrob
  15845. 66D82 @  ?? two vertical dots (Graphic 3 x 8)
  15846. 66DA6 gr Dots2Grob
  15847. 66DA6 @  ?? two vertical dots (Graphic 3 x 6)
  15848. 66DC6 gr CloseParenSmall
  15849. 66DC6 @  small close paren (Graphic 6 x 6)
  15850. 66DE6 gr OpenParenSmall
  15851. 66DE6 @  small open paren (Graphic 6 x 6)
  15852. 66E06 :: 20GETLAM#1>case_Dots2Grob_2DotsGrob
  15853. 66E29 :: 20GETLAMZERO#=casedropEqWriterCursorBigONE#=caseMedium_Small
  15854. 66E5B :: 20GETLAMZERO#=casedropBlankedCursorBigONE#=caseMedium_Small
  15855. 66E8D gr NullGrob2
  15856. 66E8D @  Graphic template (Graphic 0 x 0)
  15857. 66EA5 gr HP:BigCursor
  15858. 66EA5 @  Equation Writer cursor (big) (Graphic 6 x 10)
  15859. 66ECD gr HP:MediumCursor
  15860. 66ECD @  Equation Writer cursor (mediam) (Graphic 6 x 8)
  15861. 66EF1 gr HP:SmallCursor
  15862. 66EF1 @  Equation Writer cursor (small) (Graphic 4 x 6)
  15863. 66F11 gr NS:MediumBlank
  15864. 66F11 @  blanked cursor (Graphic 6 x 8)
  15865. 66F35 gr NS:BigBlank
  15866. 66F35 @  blanked cursor (Graphic 6 x 10)
  15867. 66F5D gr NS:BigArrow
  15868. 66F5D @  inverse arrow up (Graphic 7 x 5)
  15869. 66F7D gr NS:SmallArrow
  15870. 66F7D @  inverse arrow up (Graphic 5 x 4)
  15871. 66F99 ::
  15872. 66FAD CD
  15873. 67096 P
  15874. 67105 P
  15875. 6713B P
  15876. 67158 P
  15877. 67167 P
  15878. 67284 ::
  15879. 672C5 ::
  15880. 672ED ::
  15881. 67315 ::
  15882. 6732E ::
  15883. 67347 ::
  15884. 67360 ::
  15885. 67365 $  "d"
  15886. 6737B #  <206h>
  15887. 67385 #  <C17h>
  15888. 6738F :: DoBadKeyFlashMsg
  15889. 673A3 ::
  15890. 673B7 ::
  15891. 673EE ::
  15892. 67529 ::
  15893. 67542 ::
  15894. 67574 ::
  15895. 675F1 ::
  15896. 6760A ::
  15897. 67623 ::
  15898. 67646 #  <80000h>
  15899. 67678 ::
  15900. 67696 ::
  15901. 676AF ::
  15902. 676EB ::
  15903. 67731 ::
  15904. 67759 ::
  15905. 677B8 ::
  15906. 67808 ::
  15907. 6782B ::
  15908. 6784E ::
  15909. 678A3 ::
  15910. 678BC ::
  15911. 67902 ::
  15912. 67925 ::
  15913. 67970 ::
  15914. 6797F ::
  15915. 679A2 ::
  15916. 679DE ::
  15917. 67A2E ::
  15918. 67A51 ::
  15919. 67A74 ::
  15920. 67ACE ::
  15921. 67AF1 ::
  15922. 67B96 ::
  15923. 67C18 ::
  15924. 67C2C ::
  15925. 67C8B ::
  15926. 67D12 #  <80000h>
  15927. 67D3A ::
  15928. 67D71 ::
  15929. 67DC1 ::
  15930. 67E1B ::
  15931. 67E57 ::
  15932. 67E75 ::
  15933. 67E84 :: ZEROSWAPTWO
  15934. 67E84 :: X>0X2
  15935. 67EED ::
  15936. 67F24 ::
  15937. 67F42 ::
  15938. 67F83 ::
  15939. 67F97 ::
  15940. 67FAB ::
  15941. 67FBF ::
  15942. 67FE7 ::
  15943. 68041 ::
  15944. 6805A ::
  15945. 680B4 :: DROPFALSETRUE
  15946. 680B4 :: X>FT
  15947. 68122 ::
  15948. 68140 ::
  15949. 68159 :: metatailNDROP
  15950. 68159 @  (Meta #n -> #n-1-size(Meta) )
  15951. 681AE ::
  15952. 68230 ::
  15953. 682B2 ::
  15954. 682F8 P
  15955. 68394 P
  15956. 6840C ::
  15957. 68434 ::
  15958. 6847F ::
  15959. 68484 {} null{}
  15960. 684A7 ::
  15961. 6851F ::
  15962. 68529 :: tok=TRUE
  15963. 68529 :: "="TRUE
  15964. 6855B ::
  15965. 68565 :: ")"TRUE
  15966. 68597 ::
  15967. 685A1 ::
  15968. 685C9 ::
  15969. 685E2 ::
  15970. 6860A ::
  15971. 68632 ::
  15972. 6866E #  <80000h>
  15973. 686B4 ::
  15974. 686D7 ::
  15975. 6871D ::
  15976. 68736 :: SWAPDROPTRUE
  15977. 68736 :: XY>YT
  15978. 6874A ::
  15979. 68777 P
  15980. 68783 P
  15981. 688DF ::
  15982. 68911 ::
  15983. 68961 ::
  15984. 68998 ::
  15985. 689CF ::
  15986. 689FC ::
  15987. 68A33 P
  15988. 68A9C P
  15989. 68B11 ::
  15990. 68B39 ::
  15991. 68B57 P
  15992. 68B7B :: NS:EqWriter
  15993. 68B7B @  Enter Equation Writer with no equation
  15994. 68BA3 ::
  15995. 68BDA :: NS:>EqWriter
  15996. 68BDA @  Enter Equation Writer (1:ALG/UM -> 2:ALG/UM 1:T <ENTER> | 1:F <ATTN>)
  15997. 68C02 ::
  15998. 68C6B ::
  15999. 68C84 ::
  16000. 68C9D ::
  16001. 68CD9 ::
  16002. 68D0B ::
  16003. 68D56 ::
  16004. 68DB0 ::
  16005. 68DBF :: TRUE19PUTLAM
  16006. 68DDD ::
  16007. 68E00 ::
  16008. 68E37 ::
  16009. 68E69 ::
  16010. 68EC3 :: KEYINBUFFER?17GETLAMAND
  16011. 68EDC ::
  16012. 68EF5 ::
  16013. 68F13 ::
  16014. 68F77 ::
  16015. 68FBD ::
  16016. 68FCC ::
  16017. 68FF4 ::
  16018. 69067 ::
  16019. 6908A :: 10&9GETLAMLAST$
  16020. 690A3 ::
  16021. 690E9 ::
  16022. 6910C :: NS:OVER&$&$
  16023. 6910C @  (2:$ 1:$ -> 1:$) (2:"2" 1:"1" -> 1:"212")
  16024. 6913E :: ?TogU/LCaseCHR>$
  16025. 6916B ::
  16026. 691A7 ::
  16027. 691D4 ::
  16028. 691E3 ::
  16029. 69206 ::
  16030. 6922E ::
  16031. 692B0 ::
  16032. 692CE ::
  16033. 692E7 ::
  16034. 69305 ::
  16035. 6932D ::
  16036. 6935F {}
  16037. 69373 ::
  16038. 693CD {}
  16039. 6943B ::
  16040. 69454 {}
  16041. 69454 @  { DoENTERkey NOP EVAL EVAL ->NUM ->NUM }
  16042. 6947C ch CHR_'
  16043. 69483 ch CHR_@
  16044. 6948A {}
  16045. 69494 :: 51SysITECHR_;CHR_;
  16046. 694B7 :: 51SysITECHR_,CHR_.
  16047. 694E4 :: '_
  16048. 69511 :: 
  16049. 6952A ::
  16050. 69543 :: 51SysITECHR_;CHR_,
  16051. 69566 ::
  16052. 69584 ::
  16053. 695A2 ::
  16054. 695E3 :: 10GETSWAP&$10PUTLAM
  16055. 695FC ::
  16056. 69610 ::
  16057. 69647 ::
  16058. 69688 :: 10GET&RATIO$10PUTLAM
  16059. 69692 $  " RATIO "
  16060. 696B9 ::
  16061. 696D7 ::
  16062. 69727 ::
  16063. 69740 ::
  16064. 69763 ::
  16065. 6978B ::
  16066. 697AE ::
  16067. 697B3 #  <201h>
  16068. 697DB ::
  16069. 697FE ::
  16070. 69808 #  <202h>
  16071. 6983F ::
  16072. 6987B ::
  16073. 69899 ::
  16074. 698F8 ::
  16075. 69920 ::
  16076. 69948 ::
  16077. 6997A :: 
  16078. 699A7 ::
  16079. 699C5 :: NS:SYMBTOHBUFF
  16080. 699C5 @  Draws symbolic to HBUFF, (Called by Symb>HBuff) (1:sym)
  16081. 699ED ::
  16082. 69A92 {} EqWriterLAMS{}
  16083. 69A97 l' LAM_'Radix
  16084. 69AAA l' LAM_'KeysOk?
  16085. 69AC1 l' LAM_'ExprLit
  16086. 69AD8 l' LAM_'BuffW
  16087. 69AEB l' LAM_'BuffH
  16088. 69AFE l' LAM_'SaveBlank
  16089. 69B19 l' LAM_'ManOp
  16090. 69B2C l' LAM_'nohalt
  16091. 69B41 l' LAM_'AppMode
  16092. 69B58 l' LAM_'NameGrob
  16093. 69B71 l' LAM_'EXITFCN
  16094. 69B88 l' LAM_'FontGauge
  16095. 69BA3 l' LAM_'LE
  16096. 69BB0 l' LAM_'LB
  16097. 69BBD l' LAM_'TE
  16098. 69BCA l' LAM_'FormEnvOk
  16099. 69BE5 l' LAM_'prow
  16100. 69BF6 l' LAM_'pcol
  16101. 69C07 l' LAM_'cursy
  16102. 69C1A l' LAM_'cursx
  16103. 69C2D l' LAM_'ttt
  16104. 69C3C l' LAM_'source
  16105. 69C51 l' LAM_'ofs
  16106. 69C60 l' LAM_'tok
  16107. 69C6F l' LAM_'rbv
  16108. 69C7E l' LAM_'idfflg
  16109. 69C93 l' LAM_'tmpop
  16110. 69CA6 l' LAM_'tmppdat
  16111. 69CBD l' LAM_'ploc
  16112. 69CCE l' LAM_'bv
  16113. 69CDB l' LAM_'unbound
  16114. 69D0B :: 
  16115. 69D74 ::
  16116. 69DA6 ::
  16117. 69DC9 ::
  16118. 69DE2 ::
  16119. 69E05 ::
  16120. 69E2D ::
  16121. 69E46 ::
  16122. 69E78 ::
  16123. 69EBE ::
  16124. 69EF0 ::
  16125. 69F09 ::
  16126. 69F36 ::
  16127. 69F7C ::
  16128. 69FD6 ::
  16129. 6A049 ::
  16130. 6A062 :: SETExprLit
  16131. 6A080 :: CLRExprLit
  16132. 6A09E :: 9&10GETLAMLEN$#>
  16133. 6A0BC :: FALSE17PUTLAM
  16134. 6A0D0 P  Tst_7068D:1
  16135. 6A0E1 P  Set_7068D:1
  16136. 6A0F2 P  Clr_7068D:1
  16137. 6A103 :: 
  16138. 6A1C6 ::
  16139. 6A1E4 ::
  16140. 6A225 ::
  16141. 6A25C ::
  16142. 6A2DE ::
  16143. 6A324 ::
  16144. 6A34C ::
  16145. 6A374 ::
  16146. 6A39C ::
  16147. 6A41E ::
  16148. 6A43C ::
  16149. 6A478 ::
  16150. 6A49B ::
  16151. 6A4AF ::
  16152. 6A4DC ::
  16153. 6A4F0 :: TakeOverDoNextRowDispMenu
  16154. 6A513 :: TakeOverDoPrevRowDispMenu
  16155. 6A536 :: TakeOverDoFirstRowDispMenu
  16156. 6A559 :: EQWRmenu
  16157. 6A563 {} EQWRlist
  16158. 6A568 {} RULESkey
  16159. 6A56D :: RULESkeyprg
  16160. 6A577 $  "RULES"
  16161. 6A59A {} EQWREDITkey
  16162. 6A59F $  "EDIT"
  16163. 6A5BB {} EQWREXPRkey
  16164. 6A5C0 $  "EXPR"
  16165. 6A5DC {} EQWRSUBkey
  16166. 6A5E1 $  "SUB"
  16167. 6A5FB {} EQWRREPLkey
  16168. 6A600 $  "REPL"
  16169. 6A61C {} EQWREXITkey
  16170. 6A63A ::
  16171. 6A676 ::
  16172. 6A68A ::
  16173. 6A69E ::
  16174. 6A6FD ::
  16175. 6A72F ::
  16176. 6A743 ::
  16177. 6A789 ::
  16178. 6A7AC ::
  16179. 6A7B1 #  <201h>
  16180. 6A7DE ::
  16181. 6A7E3 #  <202h>
  16182. 6A81A ::
  16183. 6A865 ::
  16184. 6A8A6 ::
  16185. 6A8EC :: DoBadKeyNDROPNDROP
  16186. 6A90A ::
  16187. 6A923 ::
  16188. 6A950 ::
  16189. 6A99B ::
  16190. 6A9B9 ::
  16191. 6A9DC ::
  16192. 6AA09 ::
  16193. 6AA1D ::
  16194. 6AA31 ::
  16195. 6AA4A :: DROPNULLALG
  16196. 6AA6D ::
  16197. 6AAAE ::
  16198. 6AAD1 ::
  16199. 6AAE0 ::
  16200. 6AB17 ::
  16201. 6AB3F ::
  16202. 6AB71 ::
  16203. 6AB85 ::
  16204. 6ABAD ::
  16205. 6ABDA ::
  16206. 6AC02 ::
  16207. 6AC57 ::
  16208. 6AC89 ::
  16209. 6ACBB ::
  16210. 6AD5B ::
  16211. 6AD8D ::
  16212. 6ADE2 ::
  16213. 6AE14 ::
  16214. 6AE6E ::
  16215. 6AED2 ::
  16216. 6AF09 :: NS:DoBadKeyFALSE
  16217. 6AF31 ::
  16218. 6AF40 ::
  16219. 6AF9F ::
  16220. 6AFE5 ::
  16221. 6B017 #  <80000h>
  16222. 6B030 ::
  16223. 6B035 #  <80000h>
  16224. 6B049 ::
  16225. 6B062 ::
  16226. 6B08A :: NS:UNROT2DRPTRUE
  16227. 6B08A :: XYZ>ZT
  16228. 6B0CB ::
  16229. 6B0EE ::
  16230. 6B111 ::
  16231. 6B13E ::
  16232. 6B15C ::
  16233. 6B17A ::
  16234. 6B198 ::
  16235. 6B1C0 ::
  16236. 6B1DE ::
  16237. 6B1F7 ::
  16238. 6B229 ::
  16239. 6B265 ::
  16240. 6B2B0 ::
  16241. 6B2D3 ::
  16242. 6B2F6 :: EQWRFNCAPPLY
  16243. 6B355 :: NS:EQWRNEG
  16244. 6B3A5 :: NS:EQWRNOP
  16245. 6B3F5 :: NS:EQWRNOT
  16246. 6B413 $  "NOT "
  16247. 6B475 ::
  16248. 6B4CF ::
  16249. 6B501 ::
  16250. 6B51A ::
  16251. 6B547 ::
  16252. 6B5C4 #  <4Dh>
  16253. 6B5D3 ::
  16254. 6B619 ::
  16255. 6B696 #  <61h>
  16256. 6B6A5 ::
  16257. 6B6FF #  <39h>
  16258. 6B70E ::
  16259. 6B786 ::
  16260. 6B7A4 ::
  16261. 6B7CC ::
  16262. 6B844 ::
  16263. 6B86C :: NS:EQWRSQRT
  16264. 6B8A8 :: NS:EQWRXROOT
  16265. 6B952 #  <4Dh>
  16266. 6B966 ::
  16267. 6B9E3 ::
  16268. 6BA7E ::
  16269. 6BA97 :: NS:EQWR+
  16270. 6BA97 :: NS:EQWR-
  16271. 6BA97 :: NS:EQWR*
  16272. 6BA97 :: EQWRUNIT
  16273. 6BAE2 ::
  16274. 6BB23 ::
  16275. 6BC4F ::
  16276. 6BC86 ::
  16277. 6BCB8 ::
  16278. 6BCE5 :: NS:EQWR!
  16279. 6BD44 ::
  16280. 6BD7B :: NS:EQWRWHERE
  16281. 6BE1B ::
  16282. 6BE39 ::
  16283. 6BEC0 #  <39h>
  16284. 6BECF ::
  16285. 6BF0B ::
  16286. 6BF10 #  <4Dh>
  16287. 6BF29 #  <56h>
  16288. 6BF38 #  <50h>
  16289. 6BF51 ::
  16290. 6BFA6 ::
  16291. 6BFE2 ::
  16292. 6C00A ::
  16293. 6C02D :: NS:EQWR/
  16294. 6C069 :: NS:EQWRRATIO
  16295. 6C113 ::
  16296. 6C2A8 ::
  16297. 6C2D0 ::
  16298. 6C3A7 ::
  16299. 6C3D4 ::
  16300. 6C406 ::
  16301. 6C44C ::
  16302. 6C46F ::
  16303. 6C497 ::
  16304. 6C4D3 :: NS:EQWR^
  16305. 6C50F ::
  16306. 6C541 ::
  16307. 6C596 :: NS:EQWRINTG
  16308. 6C61D #  <A7h>
  16309. 6C62C ::
  16310. 6C68B #  <93h>
  16311. 6C69A ::
  16312. 6C6AE ::
  16313. 6C6E0 ::
  16314. 6C744 #  <4Dh>
  16315. 6C753 ::
  16316. 6C79E ::
  16317. 6C7C1 ::
  16318. 6C7E4 ::
  16319. 6C852 ::
  16320. 6C88E ::
  16321. 6C8B6 ::
  16322. 6C947 #  <7Fh>
  16323. 6C956 ::
  16324. 6C9C9 #  <43h>
  16325. 6C9D8 ::
  16326. 6CA41 ::
  16327. 6CA96 ::
  16328. 6CACD ::
  16329. 6CB0E ::
  16330. 6CB59 ::
  16331. 6CB90 :: NS:EQWRDER
  16332. 6CC30 #  <61h>
  16333. 6CC3F ::
  16334. 6CCE4 ::
  16335. 6CD2A ::
  16336. 6CD57 ::
  16337. 6CD9D ::
  16338. 6CDBB ::
  16339. 6CE01 ::
  16340. 6CE1A :: #2/SWAP#2/
  16341. 6CE33 ::
  16342. 6CE51 ::
  16343. 6CE6F ::
  16344. 6CE88 :: ZERODUPDUPSEVEN
  16345. 6CEA1 ::
  16346. 6CEB5 ::
  16347. 6CEC9 ::
  16348. 6CEE2 ::
  16349. 6CF05 ::
  16350. 6CF32 ::
  16351. 6CF78 ::
  16352. 6CFB4 ::
  16353. 6CFBE #  <6Fh>
  16354. 6CFDC ::
  16355. 6D03B ::
  16356. 6D059 ::
  16357. 6D0AE ::
  16358. 6D10D ::
  16359. 6D144 {}
  16360. 6D176 ::
  16361. 6D1BC ::
  16362. 6D1C1 $  " "
  16363. 6D1F5 ::
  16364. 6D22C ::
  16365. 6D24A ::
  16366. 6D28B P  #NS:-OVF
  16367. 6D28B @  #- with no wraparound (no 'negative' results)
  16368. 6D2B1 ch CHR_?
  16369. 6D2B8 P  Get_70777.3
  16370. 6D2D8 P  Sto_70777.3
  16371. 6D2FF ::
  16372. 6D327 ::
  16373. 6D340 ::
  16374. 6D368 ::
  16375. 6D37C P
  16376. 6D3D3 ::
  16377. 6D3EC ::
  16378. 6D414 :: NS:4ROLLDROPTRUE
  16379. 6D414 :: XYZW>YZWT
  16380. 6D45F ::
  16381. 6D496 :: INCR#20LAM
  16382. 6D4AF ::
  16383. 6D4CD ::
  16384. 6D4FA ::
  16385. 6D522 ::
  16386. 6D545 ::
  16387. 6D568 ::
  16388. 6D58B :: DROP::
  16389. 6D59A ::
  16390. 6D608 ::
  16391. 6D64E ::
  16392. 6D699 ::
  16393. 6D6A3 #  <45h>
  16394. 6D6BC ::
  16395. 6D6FD ::
  16396. 6D71B ::
  16397. 6D739 ::
  16398. 6D775 ::
  16399. 6D79D ::
  16400. 6D801 ::
  16401. 6D82E ::
  16402. 6D892 ::
  16403. 6D8B0 ::
  16404. 6D8E2 #  <43h>
  16405. 6D905 ::
  16406. 6D919 ::
  16407. 6D94B ::
  16408. 6D969 ::
  16409. 6D98C #  <68h>
  16410. 6D9AF ::
  16411. 6D9BE :: TWONTHCOMPDROPCOLA_EVAL
  16412. 6D9FF ::
  16413. 6DA63 ::
  16414. 6DA72 ::
  16415. 6DAB3 ::
  16416. 6DAD6 #  <3Ah>
  16417. 6DB3A ::
  16418. 6DB58 ::
  16419. 6DB62 #  <36h>
  16420. 6DBAD ::
  16421. 6DC02 ::
  16422. 6DC57 ::
  16423. 6DC7A ::
  16424. 6DD3D ::
  16425. 6DD42 ::
  16426. 6DD47 ::
  16427. 6DD83 ::
  16428. 6DDCE ::
  16429. 6DDE7 ::
  16430. 6DE0A ::
  16431. 6DE50 :: NS:EQWR=
  16432. 6DE5A ::
  16433. 6DEAA ::
  16434. 6DEB9 ::
  16435. 6DEE6 ::
  16436. 6DF04 ::
  16437. 6DF1D ::
  16438. 6DF54 ::
  16439. 6DF7C ::
  16440. 6DF9F ::
  16441. 6DFF4 ::
  16442. 6E049 ::
  16443. 6E099 ::
  16444. 6E0D0 ::
  16445. 6E143 :: UPPER#>
  16446. 6E143 :: NS:#7FFFF>
  16447. 6E148 #  NS:##7FFFF
  16448. 6E15C ::
  16449. 6E189 ::
  16450. 6E1A7 ::
  16451. 6E1E8 ::
  16452. 6E206 ::
  16453. 6E21A ::
  16454. 6E25B :: NS:2DROPSWAP
  16455. 6E292 :: 3DROPZERO
  16456. 6E2D8 ::
  16457. 6E350 ::
  16458. 6E369 :: ROTDROPZEROUNROT
  16459. 6E382 ::
  16460. 6E39B ::
  16461. 6E3F5 ::
  16462. 6E41D ::
  16463. 6E45E ::
  16464. 6E48B ::
  16465. 6E4A4 ::
  16466. 6E4F9 ::
  16467. 6E53F ::
  16468. 6E580 ::
  16469. 6E5D0 ::
  16470. 6E634 ::
  16471. 6E661 :: NS:2DROPONE
  16472. 6E6B6 ::
  16473. 6E6ED ::
  16474. 6E701 ::
  16475. 6E729 ::
  16476. 6E742 ::
  16477. 6E75B ::
  16478. 6E7DD ::
  16479. 6E86E ::
  16480. 6E8AF ::
  16481. 6E8FA ::
  16482. 6EA3F ::
  16483. 6EA5D ::
  16484. 6EA71 ::
  16485. 6EA85 ::
  16486. 6EA99 ::
  16487. 6EABC :: SWAPOVER#-
  16488. 6EAD0 :: NS:SWAPDROPZERO
  16489. 6EB16 ::
  16490. 6EB39 ::
  16491. 6EB98 ::
  16492. 6EBB6 ::
  16493. 6EBD4 ::
  16494. 6EC2E ::
  16495. 6EC4C ::
  16496. 6EC92 ::
  16497. 6ECA1 ::
  16498. 6ECD3 ::
  16499. 6ECEC ::
  16500. 6ED0F :: NS:3DRPDoBadKey
  16501. 6ED23 ::
  16502. 6EDA5 :: 2DROPNULL$ONE
  16503. 6EDBE ::
  16504. 6EDF5 ::
  16505. 6EE27 ::
  16506. 6EE95 :: NS:DROP#2+PICK
  16507. 6EED1 ::
  16508. 6EEE5 ::
  16509. 6EEEF #  <207h>
  16510. 6EEFE ::
  16511. 6EF08 #  <208h>
  16512. 6EF26 ::
  16513. 6EF3F ::
  16514. 6EF5D ::
  16515. 6EF8A ::
  16516. 6EFA8 ::
  16517. 6EFDA :: 4DROPFALSE
  16518. 6EFDA :: XYZW>F
  16519. 6F01B ::
  16520. 6F052 ::
  16521. 6F089 ::
  16522. 6F0C0 ::
  16523. 6F0D4 ::
  16524. 6F156 ::
  16525. 6F183 ::
  16526. 6F1D3 :: DROP34SWAPDUP
  16527. 6F1D3 :: XYZW>WZZ
  16528. 6F228 ::
  16529. 6F237 ::
  16530. 6F25F ::
  16531. 6F2A0 :: NS:ROTNOTUNROT
  16532. 6F2DC ::
  16533. 6F32C ::
  16534. 6F38B ::
  16535. 6F3A9 ::
  16536. 6F3C7 ::
  16537. 6F3EF ::
  16538. 6F40D ::
  16539. 6F449 ::
  16540. 6F48F ::
  16541. 6F4CB ::
  16542. 6F511 ::
  16543. 6F52F ::
  16544. 6F54D ::
  16545. 6F5C0 ::
  16546. 6F5CF ::
  16547. 6F610 :: UNROT2DROPFALSE
  16548. 6F610 :: XYZ>ZF
  16549. 6F642 ::
  16550. 6F68D :: 2DROPUNROT2DROPFALSE
  16551. 6F68D :: XYZWQ>ZF
  16552. 6F6CE ::
  16553. 6F6E7 ::
  16554. 6F705 ::
  16555. 6F741 ::
  16556. 6F77D ::
  16557. 6F7B4 ::
  16558. 6F7E6 ::
  16559. 6F845 ::
  16560. 6F863 ::
  16561. 6F89A ::
  16562. 6F8DB ::
  16563. 6F912 ::
  16564. 6F95D ::
  16565. 6F999 ::
  16566. 6FA5C ::
  16567. 6FA7A ::
  16568. 6FAB1 ::
  16569. 6FB06 ::
  16570. 6FB5B ::
  16571. 6FBAB ::
  16572. 6FC5A ::
  16573. 6FCB4 ::
  16574. 6FD1D ::
  16575. 6FD81 ::
  16576. 6FDB8 ::
  16577. 6FDD6 ::
  16578. 6FE0D ::
  16579. 6FE21 ::
  16580. 6FE5D ::
  16581. 6FE76 ::
  16582. 6FED9 ::
  16583. 6FEE3 ::
  16584. 6FF1F ::
  16585. 6FF74 P
  16586. 6FF83 P
  16587. 70000 =  RAMbase
  16588. 7005F =  SavedCRC
  16589. 7005F @  4 nibbles in RAM
  16590. 70070 =  HP:TIMEOUTCLK
  16591. 7008C =  HP:TESTMSG
  16592. 700B8 =  HP:SW_Image
  16593. 700CE =  HP:SW_ETime
  16594. 700E7 =  HP:COVERsave
  16595. 700F1 =  HP:IRAMBUFF
  16596. 701F1 =  HP:GraphPrtHook
  16597. 701FC =  RECVBUF256
  16598. 701FC @  RS-232 receive buffer (256 bytes) in RAM (data added by interrupts)
  16599. 70200 @  Time Init (RAM)
  16600. 703FC =  RECVHEAD8
  16601. 703FC @  8 nybbles for buffer head (size, get & put counters) See #31289
  16602. 70401 =  HP:uart_handshk
  16603. 70401 @  3[XH ? RH RF]0           RF=XOFF transmitted
  16604. 70401 @  RH:RECV handshake used , XH=XMIT handshaking recognized 
  16605. 70402 =  handshkfu
  16606. 70402 @  3[RF ? ? ?]0  RF set when buffer is almost filled, but XMIT is busy
  16607. 70403 =  Parity
  16608. 70428 =  HP:CONFTAB
  16609. 7042C =
  16610. 7042D =
  16611. 70437 = 
  16612. 7044D =  
  16613. 70452 =
  16614. 70457 = 
  16615. 704C3 =  HP:ORghost
  16616. 704BD =
  16617. 704DC =  HP:DISABLE_KBD
  16618. 704DD =  HP:KEYSTATE
  16619. 704EA =  HP:KEYBUFFER
  16620. 7050E = 
  16621. 70513 =
  16622. 7051B =  HP:LINECOUNTg
  16623. 70549 =
  16624. 7054C =
  16625. 70551 =  HP:VDISP2
  16626. 70551 @  pointer to menu display
  16627. 70556 =  HP:ADISP
  16628. 70556 @  ptr to Stack Display
  16629. 7055B =  HP:VDISP
  16630. 7055B @  ptr to current display
  16631. 70560 =
  16632. 70565 =  NS:GDISP
  16633. 70565 @  ptr to PICT (Grob)
  16634. 7056A =  DynamicStart
  16635. 7056F =  HP:TEMPTOP
  16636. 7056F @  heap pointer
  16637. 70574 =  NS:RETTOP
  16638. 70574 @  saved B (return stack pointer) ????????????????
  16639. 70579 =  HP:DSKTOP
  16640. 70579 @  saved D1 (RPL stack pointer)
  16641. 7057E =  NS:DSKBOT
  16642. 7057E @  bottom (start) of stack (grows down)
  16643. 70583 =  HP:TEMPENV
  16644. 70583 @  local var ptr addr
  16645. 70588 =  NS:LOOPTOP
  16646. 70588 @  Pointer to current loop information
  16647. 7058D =  HP:TOUCHTAB
  16648. 7058D @  ?? menu keys ??
  16649. 70592 =  HOMEDIRptr
  16650. 70592 @  ptr to HOME directory
  16651. 70597 =  HOMEENDpntr
  16652. 70597 @  end HOME directory (ptr to start of port0)
  16653. 7059C =  NS:CONTEXTptr
  16654. 7059C @  ptr to Current Directory
  16655. 705A1 =  NS:TMPCONTEXTptr
  16656. 705A1 @  ptr to Temp Directory
  16657. 705A6 =  NS:UserKeysptr
  16658. 705A6 @  ptr to User Keys
  16659. 705AB =  NS:Alarmsptr
  16660. 705AB @  ptr to Alarm List
  16661. 705B0 =  NS:RPLTOP
  16662. 705B0 @  saved D0 (RPL thread pointer)
  16663. 705B5 @  temp save A.A
  16664. 705BA =  ArgPntrs
  16665. 705BA @  Saved argument pointers (15 Nibbles)
  16666. 705BF =  Arg2
  16667. 705C4 =  Arg3
  16668. 705C9 =  Something to do with last args
  16669. 705CE =  Something to do with last args
  16670. 705D3 =   
  16671. 705D3 @  somelocation in ram (HXS B8 xxxxxxx...xxxx ???)
  16672. 705D9 @  ROM: ML Version Output
  16673. 705DD =  Last command?????????? (2 words area??)
  16674. 70600 =  STK1#place
  16675. 70600 @  Storage for the pointer to Level1 Object
  16676. 70605 =  AppDisplayptr
  16677. 7060A =  AppKeysptr
  16678. 7060F =  AppExitCondptr
  16679. 70614 =  AppErrorptr
  16680. 7061E =  CurMenuptr
  16681. 70623 =  LastMenuptr
  16682. 70637 =  MenuKeysptr
  16683. 7063C =  MenuKeysLSptr
  16684. 70641 =  MenuKeysRSptr
  16685. 70646 =  HP:ReviewKey
  16686. 7064B =  SAVEDCONTEXTpntr
  16687. 7064B @  pntr to saved CONTEXT ???
  16688. 70655 =  ExitActionptr
  16689. 7065A =  LastCmdptr
  16690. 7065A @  Last command saved (#03FEF is pntr to #0 = no cmd)
  16691. 70669 =
  16692. 7066E =  NS:FREETOP
  16693. 7066E @  saved D (free stack space)
  16694. 70673 =  LastError#
  16695. 70673 @  Last Error Code
  16696. 70679 =  HP:ATTNFLG
  16697. 7067E =  HP:FIRSTPROC
  16698. 70683 =  (4 2) 8:IgnoreAlm?
  16699. 70684 =  (4 set by SolverMenuInit) 2:ServerMode 1:ShowClock?
  16700. 70685 =  (8 clear if $ is parsed to a max length???) 1:LastStkOn? 2:INSmode?
  16701. 70686 =  DAOK
  16702. 70686 @  1: 2: 4: 8:PortmenuOn?
  16703. 70686 @  (ClrDA3OK clr 4) (freeze_stack_alt2 1) 2 (freeze_menu_alt3 4)
  16704. 70687 @  1:LastCmdOn? 4:Lower case?
  16705. 70688 =  Freezeflags
  16706. 70688 @  8:Frozen_status_alt2          2:AppSuspOK 1:User1Mode
  16707. 70689 =  DAValidF
  16708. 70689 @  1:DA1ValidF 2:DA2aValidF 4:DA2bValidF 8:DA3ValidF
  16709. 7068A =  DANoCh
  16710. 7068A @  1:DA1NoCh 2:DA2aNoCh 4:DA2bNoCh 8:DA3NoCh
  16711. 7068B =  DABad
  16712. 7068B @  1:DA1Bad 2:DA2aBad 4:DA2bBad? 8:DA3Bad
  16713. 7068C =  AppFlags1
  16714. 7068C @  8:Appmode 4:StdKeys? 2:NAppKeyOK 1:ImmedEntry?
  16715. 7068D =  AppFlags2
  16716. 7068D @  8:StdKeys
  16717. 7068E =  ClkFlags
  16718. 7068E @  1:DA1IsStat
  16719. 7069F =  STKSIZE
  16720. 7069F @  Stack Size (nibbles)
  16721. 706A4 @  Random Seed
  16722. 706B8 =  #LastAlarm??
  16723. 706BD = 
  16724. 706C3 =
  16725. 706C5 =  HP:SystemFlags
  16726. 706C5 @  RPL System Flags -1 thru -4
  16727. 706C6 @  RPL System Flags -5 thru -8
  16728. 706C7 @  RPL System Flags -9 thru -12
  16729. 706C8 @  RPL System Flags -13 thru -16
  16730. 706C9 @  RPL System Flags -17 thru -20
  16731. 706CA @  RPL System Flags -21 thru -24
  16732. 706CB @  RPL System Flags -25 thru -28
  16733. 706CC @  RPL System Flags -29 thru -32
  16734. 706CD @  RPL System Flags -33 thru -36
  16735. 706CE @  RPL System Flags -37 thru -40
  16736. 706CF @  RPL System Flags -41 thru -44
  16737. 706D0 @  RPL System Flags -45 thru -48
  16738. 706D1 @  RPL System Flags -49 thru -52
  16739. 706D2 @  RPL System Flags -53 thru -56
  16740. 706D3 @  RPL System Flags -57 thru -60
  16741. 706D4 @  RPL System Flags -61 thru -64
  16742. 706D5 =  NS:UserFlags
  16743. 706D5 @  RPL System Flags 1 thru 4
  16744. 706D6 @  RPL System Flags 5 thru 8
  16745. 706D7 @  RPL System Flags 9 thru 12
  16746. 706D8 @  RPL System Flags 13 thru 16
  16747. 706D9 @  RPL System Flags 17 thru 20
  16748. 706DA @  RPL System Flags 21 thru 24
  16749. 706DB @  RPL System Flags 25 thru 28
  16750. 706DC @  RPL System Flags 29 thru 32
  16751. 706DD @  RPL System Flags 33 thru 36
  16752. 706DE @  RPL System Flags 37 thru 40
  16753. 706DF @  RPL System Flags 41 thru 44
  16754. 706E0 @  RPL System Flags 45 thru 48
  16755. 706E1 @  RPL System Flags 49 thru 52
  16756. 706E2 @  RPL System Flags 53 thru 56
  16757. 706E3 @  RPL System Flags 57 thru 60
  16758. 706E4 @  RPL System Flags 61 thru 64
  16759. 706E7 =
  16760. 706EC =
  16761. 706F6 =  
  16762. 706FD =  #ArgPntrs
  16763. 706FD @  Number of argument pointers saved in ArgPntrs (705BA)
  16764. 706FF =  SavedLastError#
  16765. 706FF @  Saved Last Error code 
  16766. 70704 =  CmdPosit# 
  16767. 70704 @  Position (total) of the cursor in the command-line
  16768. 70709 =  CmdLPosit#
  16769. 70709 @  Position (line) of the cursor in the command-line
  16770. 7070E =  
  16771. 70710 =
  16772. 70713 @  GROB for displaying lines of stack. Enough mem for 19 char bitmap
  16773. 7074E =
  16774. 7074F =  
  16775. 70763 =  ERROR#place
  16776. 70763 @  Storage location for #errornumber
  16777. 70764 @  st_save
  16778. 70770 =  NS:DcompWidth
  16779. 70770 @  Max string compile length
  16780. 70793 =  NS:DelayedA
  16781. 70793 @  Delayed alpha lock indicator
  16782. 70794 =  NS:PrgmEntry
  16783. 70794 @  PRG mode indicator
  16784. 70796 =  MATRWRwidth
  16785. 70798 =  MATRWRGOdirection
  16786. 7079D =  HP:ClkOnNib
  16787. 707C9 =  NS:CurMenuOffset
  16788. 707D3 @  Last Menu Offset
  16789. 707D9 =  HP:ROMPTAB
  16790. 707D9 @  Known Libraries (count:3 lib#:3 adr:5 lib#:3 adr:5,...)
  16791. 70844 @  GROB for menu display: 8 by 131
  16792. 70865 @  4:AlgEntryOn?
  16793. 70968 @  GROB for the rest of the screen: 56 by 131
  16794. 710EC @  GROB for plot display: variable size
  16795. 71AD8 @  ASCIC: Version
  16796. 71AF6 @  ASCIC: Copyright
  16797. 72000 @  Message table for library 000 (XLIB 0)
  16798. 72281 @  Message table for library 00A (XLIB 10)
  16799. 7232C @  Message table for library 00C (XLIB 12)
  16800. 7260A @  Message table for library 00D (XLIB 13)
  16801. 726A5 @  Message table for library 00B (XLIB 11)
  16802. 72704 @  Message table for library 001 (XLIB 1)
  16803. 72DCF @  Message table for library 002 (XLIB 2)
  16804. 72F1E @  Message table for library 003 (XLIB 3)
  16805. 72FE6 @  Message table for library 006 (XLIB 6)
  16806. 736F9 @  Message table for library 005 (XLIB 5)
  16807. 7427C #h HashTable700
  16808. 7427C @  Hash table for library 700 (XLIB 1792)
  16809. 7448A #h HashTable002
  16810. 7448A @  Hash table for library 002 (XLIB 2)
  16811. 76E90 *  HP:cLN1+XF
  16812. 76ED9 *  HP:cLNF
  16813. 770A9 *  HP:cEX-115F
  16814. 773D7 *  HP:cYX2-15
  16815. 77481 *  HP:cYX060
  16816. 7A929 ch CHR_alpha
  16817. 7A930 ch CHR_%
  16818. 7A937 ch CHR_'
  16819. 7A93E ch CHR_<=
  16820. 7A945 ch CHR_>=
  16821. 7A94C ch CHR_<>
  16822. 7A953 $  $_==
  16823. 7A961 ch CHR_~
  16824. 7A968 ch CHR_beta
  16825. 7A96F ch CHR_Delta
  16826. 7A976 ch CHR_delta
  16827. 7A97D ch CHR_epsilon
  16828. 7A984 ch CHR_theta
  16829. 7A98B ch CHR_gamma
  16830. 7A992 ch CHR_eta
  16831. 7A999 ch CHR_inv_!
  16832. 7A9A0 ch CHR_inf
  16833. 7A9A7 ch CHR_|
  16834. 7A9AE ch CHR_up
  16835. 7A9B5 ch CHR_lamda
  16836. 7A9BC ch CHR_mu
  16837. 7A9C3 ch CHR_|>
  16838. 7A9CA ch CHR_Omega
  16839. 7A9D1 ch CHR_<-
  16840. 7A9D8 ch CHR_down
  16841. 7A9DF ch CHR_rho
  16842. 7A9E6 ch CHR_sigma
  16843. 7A9ED ch CHR_tau
  16844. 7A9F4 ch CHR_inv_?
  16845. 7A9FB ch CHR_omega
  16846. 7AA02 ch CHR_x-bar
  16847. 7AA09 ch CHR_+/-
  16848. 7AA10 ch CHR_Pi
  16849. 7AA17 ch CHR_cents
  16850. 7AA1E ch CHR_pounds
  16851. 7AA25 ch CHR_yen
  16852. 7AA2C ch CHR_currency
  16853. 7AA33 ch CHR_degree
  16854. 7AA3A ch CHR_!
  16855. 7AA41 ch CHR_?
  16856. 7AA48 ch CHR_&
  16857. 7AA4F ch CHR_@
  16858. 7AA56 ch CHR_$
  16859. 7AA5D [] KDefs11
  16860. 7AA5D @  DoMenuKey1NS    DoMenuKey1LS    DoMenuKey1RS    CHR_A,CHR_a,CHR_alpha
  16861. 7AA94 [] KDefs12
  16862. 7AA94 @  DoMenuKey2NS    DoMenuKey2LS    DoMenuKey2RS    CHR_B,CHR_b,CHR_beta
  16863. 7AACB [] KDefs13
  16864. 7AACB @  DoMenuKey3NS    DoMenuKey3LS    DoMenuKey3RS    CHR_C,CHR_c,CHR_Delta
  16865. 7AB02 [] KDefs14
  16866. 7AB02 @  DoMenuKey4NS    DoMenuKey4LS    DoMenuKey4RS    CHR_D,CHR_d,CHR_delta
  16867. 7AB39 [] KDefs15
  16868. 7AB39 @  DoMenuKey5NS    DoMenuKey5LS    DoMenuKey5RS    CHR_E,CHR_e,CHR_epsilon
  16869. 7AB70 [] KDefs16
  16870. 7AB70 @  DoMenuKey6NS    DoMenuKey6LS    DoMenuKey6RS    CHR_F,CHR_f,CHR_theta
  16871. 7ABA7 [] KDefs21
  16872. 7ABA7 @  DoMTHmkey,DoPRINTmkey,xPR1,CHR_G,CHR_g,CHR_gamma
  16873. 7ABDE [] KDefs22
  16874. 7ABDE @  DoPRGmkey,DoIOmkey,xSERVER,CHR_H,CHR_h,CHR_eta
  16875. 7AC15 [] KDefs23
  16876. 7AC15 @  DoCSTmkey,DoMODESmkey,DoMODESCUSTOMmkey,CHR_I,CHR_i,CHR_inf
  16877. 7AC4C [] KDefs24
  16878. 7AC4C @  DoVARmkey,DoMEMORYmkey,DoMEMORYARITmkey,CHR_J,CHR_j,CHR_|
  16879. 7AC83 [] KDefs25
  16880. 7AC83 @  DoUPkey,DoLIBRARYmkey,DoUPRSkey,CHR_K,CHR_k,CHR_up
  16881. 7ACBA [] KDefs26
  16882. 7ACBA @  DoNextRow,DoPrevRow,DoFirstRow,CHR_L,CHR_l,CHR_lamda
  16883. 7ACF1 [] KDefs31
  16884. 7ACF1 @  Do'key,xUPDIR,xHOME,CHR_M,CHR_m,CHR_'
  16885. 7AD28 [] KDefs32
  16886. 7AD28 @  DoSTOkey,xDEFINE,xRCL,CHR_N,CHR_n,CHR_mu
  16887. 7AD5F [] KDefs33
  16888. 7AD5F @  xEVAL,x>Q,x>NUM,CHR_O,CHR_o,CHR_Omega
  16889. 7AD96 [] KDefs34
  16890. 7AD96 @  DoLEFTkey,xGRAPH,DoLEFTRSkey,CHR_P,CHR_p,CHR_<-
  16891. 7ADCD [] KDefs35
  16892. 7ADCD @  DoDOWNkey,DoREVIEWkey,DoDOWNRSkey,CHR_Q,CHR_q,CHR_down
  16893. 7AE04 [] KDefs36
  16894. 7AE04 @  DoRIGHTkey,xSWAP,DoRIGHTRSkey,CHR_R,CHR_r,CHR_rho
  16895. 7AE3B [] KDefs41
  16896. 7AE3B @  xSIN,xASIN,xrpnDER,CHR_S,CHR_s,CHR_sigma
  16897. 7AE72 [] KDefs42
  16898. 7AE72 @  xCOS,xACOS,xrpnINTEGRAL,CHR_T,CHR_t,CHR_tau
  16899. 7AEA9 [] KDefs43
  16900. 7AEA9 @  xTAN,xATAN,xSUM,CHR_U,CHR_u,CHR_%
  16901. 7AEE0 [] KDefs44
  16902. 7AEE0 @  xSQRT,xSQ,xrpnXROOT,CHR_V,CHR_v,CHR_~
  16903. 7AF17 [] KDefs45
  16904. 7AF17 @  x^,xALOG,xLOG,CHR_W,CHR_w,CHR_omega
  16905. 7AF4E [] KDefs46
  16906. 7AF4E @  xINV,xEXP,xLN,CHR_X,CHR_x,CHR_x-bar
  16907. 7AF85 [] KDefs51
  16908. 7AF85 @  DoENTERkey,DoENTERLSkey,DoENTERRSkey,DoENTERkey,CHR_&,CHR_@
  16909. 7AFBC [] KDefs52
  16910. 7AFBC @  DoNEGkey,DoEDITkey,DoVISITkey,CHR_Y,CHR_y,CHR_+/-
  16911. 7AFF3 [] KDefs53
  16912. 7AFF3 @  DoEEXkey,Do2Dkey,Do3Dkey,CHR_Z,CHR_z,CHR_Pi
  16913. 7B02A [] KDefs54
  16914. 7B02A @  DoDELkey,DoPURGEkey,DoCLVARkey,DoDELkey,CHR_!,CHR_inv_!
  16915. 7B061 [] KDefs55
  16916. 7B061 @  DoBACKSPCkey,xDROP,xCLEAR,DoBACKSPCkey,CHR_?,CHR_inv_?
  16917. 7B098 [] KDefs61
  16918. 7B098 @  1A/LockA,DoUSRkey,DoENTRYkey,Do2ALPHAkey,DoTogLowCkey,DoTogInsKey
  16919. 7B0CF [] KDefs62
  16920. 7B0CF @  CHR_7,DoSOLVEkey,DoSOLVRkey,CHR_7,Do0ChrInv,Do1ChrInv
  16921. 7B106 [] KDefs63
  16922. 7B106 @  CHR_8,DoPLOTkey DoPLOTRkey,CHR_8,Do2ChrInv,Do3ChrInv
  16923. 7B13D [] KDefs64
  16924. 7B13D @  CHR_9,DoALGEBRAkey,DoCATkey,CHR_9,Do4ChrInv,Do5ChrInv
  16925. 7B174 [] KDefs65
  16926. 7B174 @  x/,Do()key,Do#key,CHR_/,Do()key,CHR_#
  16927. 7B1AB [] KDefs71
  16928. 7B1AB @  DoLSkey,DoNSkey,DoLSkey,DoALSkey,DoANSkey,DoALSkey
  16929. 7B1E2 [] KDefs72
  16930. 7B1E2 @  CHR_4,DoTIMEkey,DoTIMECATkey,CHR_4,CHR_$,CHR_cents
  16931. 7B219 [] KDefs73
  16932. 7B219 @  CHR_5,DoSTATkey,DoSTATRSkey,CHR_5,CHR_pounds,CHR_yen
  16933. 7B250 [] KDefs74
  16934. 7B250 @  CHR_6,DoUNITSmkey,DoUNITSCMDmkey,CHR_6,CHR_currency,CHR_degree
  16935. 7B287 [] KDefs75
  16936. 7B287 @  x*,Do[]key,Do_key,CHR_*,Do[]key,CHR_UndScore
  16937. 7B2BE [] KDefs81
  16938. 7B2BE @  DoRSkey,DoRSkey,DoNSkey,DoARSkey,DoARSkey,DoAkey
  16939. 7B2F5 [] KDefs82
  16940. 7B2F5 @  CHR_1,DoRADkey,DoPOLARkey,CHR_1,"==",CHR_<>
  16941. 7B32C [] KDefs83
  16942. 7B32C @  CHR_2,DoSTACKkey,xLASTARG,CHR_2,CHR_<,CHR_>
  16943. 7B363 [] KDefs84
  16944. 7B363 @  CHR_3,DoCMDkey,DoLASTMENUkey,CHR_3,CHR_<=,CHR_>=
  16945. 7B39A [] KDefs85
  16946. 7B39A @  x-,Do<<>>key,Do""key,CHR_-,Do<<>>keyLS,CHR_DblQuote
  16947. 7B3D1 [] KDefs91
  16948. 7B3D1 @  DoONkey,xCONT,TurnOffKey,DoONkey,xCONT,TurnOffKey
  16949. 7B408 [] KDefs92
  16950. 7B408 @  CHR_0,x=,xALG->,CHR_0,CHR_=,CHR_->
  16951. 7B43F [] KDefs93
  16952. 7B43F @  Do.key , Do,key , DoNEWLINEkey, Do.key , Do,key , DoNEWLINEkey
  16953. 7B476 [] KDefs94
  16954. 7B476 @  CHR_Space,xPI,CHR_Angle,CHR_Space,CHR_Pi,CHR_Angle
  16955. 7B4AD [] KDefs95
  16956. 7B4AD @  x+,Do{}key,Do::key,CHR_+,Do{}key,CHR_:
  16957. 7B4E4 [] NS:KDefs
  16958. 7B4E4 @  Array of binary arrays ( [KDefs11 ... KDefs95] )
  16959. 7B5F2 :: RINV+
  16960. 7B638 :: RINV=-
  16961. 7B65B :: addtunrot&'x+
  16962. 7B65B @  (Meta1 Meta2 Meta3 Ob -> Meta3&Ob Meta1&Meta2 x+)
  16963. 7B679 :: psh1&revrot&'x-
  16964. 7B679 @  (Meta1 Meta2 Meta3 Ob -> Meta2&Ob Meta3&Meta1 x-)
  16965. 7B6A6 :: RINV*
  16966. 7B6C9 :: addtunrot&
  16967. 7B6C9 @  (Meta1 Meta2 Meta3 Ob -> Meta3&Ob Meta1&Meta2)
  16968. 7B6DD :: psh1&revrotpshtop&
  16969. 7B6DD @  (Meta1 Meta2 Meta3 Ob -> Meta2&Ob Meta1&Meta3)
  16970. 7B705 :: RINV/
  16971. 7B728 :: addtunrot&'x*
  16972. 7B728 @  (Meta1 Meta2 Meta3 Ob -> Meta3&Ob Meta1&Meta2 x*)
  16973. 7B746 :: psh1&revrot&'x/
  16974. 7B746 @  (Meta1 Meta2 Meta3 Ob -> Meta2&Ob Meta3&Meta1 x/)
  16975. 7B773 :: RINV^
  16976. 7B7B9 ::
  16977. 7B7EB ::
  16978. 7B7FF ::
  16979. 7B822 ::
  16980. 7B88B ::
  16981. 7B8CC :: RINVEXP
  16982. 7B8F4 :: RINVSIN
  16983. 7B917 :: RINVCOS
  16984. 7B93F :: RINVTAN
  16985. 7B962 :: RINVSINH
  16986. 7B985 :: RINVCOSH
  16987. 7B9AD :: RINVTANH
  16988. 7B9D0 :: RINVALOG
  16989. 7B9E9 {} {%10_LN_/_+}
  16990. 7BA16 ::
  16991. 7BA3E :: DER*
  16992. 7BA48 ::
  16993. 7BA70 ::
  16994. 7BAC0 :: DER+
  16995. 7BACA ::
  16996. 7BAF2 :: NDROPABNDSYMBN
  16997. 7BB1F :: DER-
  16998. 7BB29 ::
  16999. 7BB56 :: NDROPABNDSYMBN
  17000. 7BB83 :: DER/
  17001. 7BB8D ::
  17002. 7BBB5 ::
  17003. 7BC05 :: DER=
  17004. 7BC32 ::
  17005. 7BC8C {} {CONJ_*_+}
  17006. 7BCB4 {} {ABS_%2_*_/}
  17007. 7BCE1 :: DERACOS
  17008. 7BCFA {} {%2_^_-_SQRT_INV_NEG}
  17009. 7BD36 :: DERACOSH
  17010. 7BD4A {} {%1_-_SQRT}
  17011. 7BDA4 :: DERALOG
  17012. 7BDF4 :: DERARG
  17013. 7BE1C {} {CONJ_-_%2_i_*_/}
  17014. 7BE58 :: DERASIN
  17015. 7BE6C {} {%2_^_-_SQRT_INV}
  17016. 7BEA3 :: DERASINH
  17017. 7BEC6 {} {%2_^_+_SQRT_/}
  17018. 7BEF8 :: DERATAN
  17019. 7BF0C {} {%2_^_+_INV}
  17020. 7BF3E :: DERATANH
  17021. 7BF61 {} {%2_^_-_/}
  17022. 7BF8E :: DERCOS
  17023. 7BFB1 :: DERCOSH
  17024. 7BFE3 :: DEREXP
  17025. 7BFE3 :: DEREXPM1
  17026. 7C010 :: DERINV
  17027. 7C04C :: DERLN
  17028. 7C06F :: DERLNP1
  17029. 7C083 {} {%1_+_/}
  17030. 7C0AB :: DERLOG
  17031. 7C0BF {} {%10_LN_*_/}
  17032. 7C0EC :: DERIFTE
  17033. 7C146 :: DERSIN
  17034. 7C164 :: DERSINH
  17035. 7C191 :: DERSQ
  17036. 7C1C8 :: DERSQRT
  17037. 7C1EB {} {SQRT_*_/}
  17038. 7C213 :: DERTAN
  17039. 7C227 {} {TAN_%2_^_+}
  17040. 7C254 :: DERTANH
  17041. 7C268 {} {COSH_%2_^_/}
  17042. 7C295 :: DER^
  17043. 7C29F ::
  17044. 7C2BD ::
  17045. 7C303 ::
  17046. 7C330 {} {%1_-_^_*}
  17047. 7C358 ::
  17048. 7C3A3 :: DERDER
  17049. 7C3CB :: DERWHERE
  17050. 7C411 :: DERINTG
  17051. 7C4FC ::
  17052. 7C547 :: DERSUM
  17053. 7C56A ::
  17054. 7C5A6 :: DERAPPLY
  17055. 7C5A6 :: DROPNDROP%0
  17056. 7C5D3 :: INTGSIN
  17057. 7C5DD {} 
  17058. 7C5E7 {} { ALG_SIN(LAM&1) {} SINimp {} }
  17059. 7C5EC '' ALG_SIN(LAM&1)
  17060. 7C605 :: SINimp
  17061. 7C614 '' ALG_NEG(COS(LAM&1))
  17062. 7C63C {} { ALG_INV(SIN(LAM&1)*TAN(LAM&1)) {} ISINTANimp {} }
  17063. 7C641 '' ALG_INV(SIN(LAM&1)*TAN(LAM&1))
  17064. 7C66E :: ISINTANimp
  17065. 7C67D '' ALG_NEG(INV(SIN(LAM&1)))
  17066. 7C6AA {} { ALG_INV(SIN(LAM&1)^2) {} ISINimp {} }
  17067. 7C6AF '' ALG_INV(SIN(LAM&1)^2)
  17068. 7C6D7 :: ISIN2imp
  17069. 7C6E6 '' ALG_NEG(INV(TAN(LAM&1)))
  17070. 7C713 {} { ALG_INV(SIN(LAM&1)*COS(LAM&1)) {} #7C7FE {} }
  17071. 7C718 '' ALG_INV(SIN(LAM&1)*COS(LAM&1))
  17072. 7C745 #  <7C7FEh>
  17073. 7C768 :: INTGCOS
  17074. 7C772 {}
  17075. 7C77C {} { ALG_COS(LAM&1) {} COSimp {} }
  17076. 7C781 '' ALG_COS(LAM&1)
  17077. 7C79A :: COSimp
  17078. 7C7A9 '' ALG_SIN(LAM&1)
  17079. 7C7CC {} { ALG_INV(COS(LAM&1)*SIN(LAM&1)) {} ICOSSINimp {} }
  17080. 7C7D1 '' ALG_INV(COS(LAM&1)*SIN(LAM&1))
  17081. 7C7FE :: ICOSSINimp
  17082. 7C80D '' ALG_LN(TAN(LAM&1))
  17083. 7C844 :: INTGTAN
  17084. 7C84E {}
  17085. 7C858 {} { ALG_TAN(LAM&1)^2 {} TAN2imp {} }
  17086. 7C85D '' ALG_TAN(LAM&1)^2
  17087. 7C880 :: TAN2imp
  17088. 7C88F '' ALG_TAN(LAM&1)-LAM&1
  17089. 7C8BC {} { ALG_TAN(LAM&1) {} TANimp {} }
  17090. 7C8C1 '' ALG_TAN(LAM&1)
  17091. 7C8DA :: TANimp
  17092. 7C8E9 '' ALG_NEG(LN(COS(LAM&1)))
  17093. 7C916 {} { ALG_INV(TAN(LAM&1)*SIN(LAM&1)) {} #7C66E {} }
  17094. 7C91B '' ALG_INV(TAN(LAM&1)*SIN(LAM&1))
  17095. 7C948 #  <7C66Eh>
  17096. 7C95C {} { ALG_TAN(LAM&1)*INV(COS(LAM&1)) {} TANICOSimp {} }
  17097. 7C961 '' ALG_TAN(LAM&1)*INV(COS(LAM&1))
  17098. 7C98E :: TANICOSimp
  17099. 7C99D '' ALG_INV(COS(LAM&1))
  17100. 7C9C5 {} { ALG_INV(TAN(LAM&1)) {} ITANimp {} }
  17101. 7C9CA '' ALG_INV(TAN(LAM&1))
  17102. 7C9E8 :: ITANimp
  17103. 7C9F7 '' ALG_LN(SIN(LAM&1))
  17104. 7CA2E :: INTGASIN
  17105. 7CA38 {}
  17106. 7CA42 {} { ALG_ASIN(LAM&1) {} ASINimp {}  {} }
  17107. 7CA47 '' ALG_ASIN(LAM&1)
  17108. 7CA60 :: ASINimp
  17109. 7CA6F '' ALG_LAM&1*ASIN(LAM&1)+SQRT(1-LAM&1^2)
  17110. 7CACE :: INTGACOS
  17111. 7CAD8 {}
  17112. 7CAE2 {} { ALG_ACOS(LAM&1) {} ACOSimp {} }
  17113. 7CAE7 '' ALG_ACOS(LAM&1)
  17114. 7CB00 :: ACOSimp
  17115. 7CB0F '' ALG_LAM&1*ACOS(LAM&1)-SQRT(1-LAM&1^2)
  17116. 7CB6E :: INTGATAN
  17117. 7CB78 {}
  17118. 7CB82 {} { ALG_ATAN(LAM&1) {} ATANimp {} }
  17119. 7CB87 '' ALG_ATAN(LAM&1)
  17120. 7CBA0 :: ATANimp
  17121. 7CBAF '' ALG_LAM&1*ATAN(LAM&1)-LN(1+LAM&1^2)/2
  17122. 7CC18 :: INTGSINH
  17123. 7CC22 {}
  17124. 7CC2C {} { ALG_SINH(LAM&1) {} SINHimp {} }
  17125. 7CC31 '' ALG_SINH(LAM&1)
  17126. 7CC4A :: SINHimp
  17127. 7CC59 '' ALG_COSH(LAM&1)
  17128. 7CC7C {} { ALG_INV(SINH(LAM&1)*TANH(LAM&1)) {} ISINHTANHimp {} }
  17129. 7CC81 '' ALG_INV(SINH(LAM&1)*TANH(LAM&1))
  17130. 7CCAE :: ISINHTANHimp
  17131. 7CCBD '' ALG_NEG(INV(SINH(LAM&1)))
  17132. 7CCEA {} { ALG_INV(SINH(LAM&1)^2) {} ISINH2imp {} }
  17133. 7CCEF '' ALG_INV(SINH(LAM&1)^2)
  17134. 7CD17 :: ISINH2imp
  17135. 7CD26 '' ALG_NEG(INV(TANH(LAM&1)))
  17136. 7CD53 {} { ALG_INV(SINH(LAM&1)*COSH(LAM&1)) {} ISINHCOSHimp {} }
  17137. 7CD58 '' ALG_INV(SINH(LAM&1)*COSH(LAM&1))
  17138. 7CD85 :: ISINHCOSHimp
  17139. 7CD94 '' ALG_LN(TANH(LAM&1))
  17140. 7CDCB :: INTGCOSH
  17141. 7CDD5 {} 
  17142. 7CDDF {} { ALG_COSH(LAM&1) {} COSHimp {} }
  17143. 7CDE4 '' ALG_COSH(LAM&1)
  17144. 7CDFD :: COSHimp
  17145. 7CE0C '' ALG_SIN(LAM&1)
  17146. 7CE2F {} { ALG_INV(COSH(LAM&1)^2) {} ICOSH2imp {} }
  17147. 7CE34 '' ALG_INV(COSH(LAM&1)^2)
  17148. 7CE5C :: ICOSH2imp
  17149. 7CE6B '' ALG_TANH(LAM&1)
  17150. 7CE8E {} { ALG_COSH(LAM&1)^-2 {} #7CE5C {} }
  17151. 7CE93 '' ALG_COSH(LAM&1)^-2
  17152. 7CEB6 #  <7CE5Ch>
  17153. 7CECA {} { ALG_INV(COSH(LAM&1)*SINH(LAM&1)) {} #7CD85 {} }
  17154. 7CECF '' ALG_INV(COSH(LAM&1)*SINH(LAM&1))
  17155. 7CEFC #  <7CD85h>
  17156. 7CF1F :: INTGTANH
  17157. 7CF29 {}
  17158. 7CF33 {} { ALG_TANH(LAM&1) {} TANHimp {} }
  17159. 7CF38 '' ALG_TANH(LAM&1)
  17160. 7CF51 :: TANHimp
  17161. 7CF60 '' ALG_LN(COSH(LAM&1))
  17162. 7CF88 {} { ALG_INV(TANH(LAM&1)*SINH(LAM&1)) {} #7CCAE {} }
  17163. 7CF8D '' ALG_INV(TANH(LAM&1)*SINH(LAM&1))
  17164. 7CFBA #  <7CCAEh>
  17165. 7CFCE {} { ALG_TANH(LAM1)*INV(COSH(LAM1)) {} TANHICOSHimp {} }
  17166. 7CFD3 '' ALG_TANH(LAM1)*INV(COSH(LAM1))
  17167. 7D000 :: TANHICOSHimp
  17168. 7D00F '' ALG_INV(COSH(LAM&1))
  17169. 7D037 {} { ALG_INV(TANH(LAM&1)) {} ITANHimp {} }
  17170. 7D03C '' ALG_INV(TANH(LAM&1))
  17171. 7D05A :: ITANHimp
  17172. 7D069 '' ALG_LN(SINH(LAM&1))
  17173. 7D0A0 :: INTGEXPM1
  17174. 7D0AA {}
  17175. 7D0B4 {} { ALG_EXPM1(LAM&1) {} EXPM1imp {} }
  17176. 7D0B9 '' ALG_EXPM1(LAM&1)
  17177. 7D0D2 :: EXPM1imp
  17178. 7D0E1 '' ALG_EXP(LAM&1)-LAM&1
  17179. 7D11D :: INTGALOG
  17180. 7D127 {}
  17181. 7D131 {} { ALG_ALOG(LAM&1) {} ALOGimp {} }
  17182. 7D136 '' ALG_ALOG(LAM&1)
  17183. 7D14F :: ALOGimp
  17184. 7D15E '' ALG_%??*ALOG(LAM&1)
  17185. 7D1AA :: INTGLN
  17186. 7D1B4 {}
  17187. 7D1BE {} { ALG_LN(LAM&1) {} LNimp {} }
  17188. 7D1C3 '' ALG_LN(LAM&1)
  17189. 7D1DC :: LNimp
  17190. 7D1EB '' ALG_LAM&1*LN(LAM&1)-LAM&1
  17191. 7D231 :: INTGLOG
  17192. 7D23B {}
  17193. 7D245 {} { ALG_LOG(LAM&1) {} LOGimp {} }
  17194. 7D24A '' ALG_LOG(LAM&1)
  17195. 7D263 :: LOGimp
  17196. 7D272 '' ALG_%??*(LAM&1*LN(LAM&1)-LAM&1)
  17197. 7D2D2 :: INTGINV
  17198. 7D2DC {} 
  17199. 7D2E6 {} { ALG_INV(LAM&1) {} INVimp {} }
  17200. 7D2EB '' ALG_INV(LAM&1)
  17201. 7D304 :: INVimp
  17202. 7D313 '' ALG_LN(LAM&1)
  17203. 7D336 {} { ALG_INV(LAM&1^2) {} INV2imp {} }
  17204. 7D33B '' ALG_INV(LAM&1^2)
  17205. 7D35E :: INV2imp
  17206. 7D36D '' ALG_NEG(INV(LAM&1))
  17207. 7D395 {} { ALG_INV(SQ(LAM&1)) {} INVSQimp {} }
  17208. 7D39F '' ALG_INV(SQ(LAM&1))
  17209. 7D3B8 :: INVSQimp
  17210. 7D3CC '' ALG_NEG(INV(LAM&1))
  17211. 7D3EF {} { ALG_INV(1+LAM&1^2) {} INV1+2^imp
  17212. 7D3F9 '' ALG_INV(1+LAM&1^2)
  17213. 7D421 :: INV1+2^imp
  17214. 7D435 '' ALG_ATAN(LAM&1)
  17215. 7D453 {} { ALG_INV(LAM&1^2+1) {} #7D421 {} }
  17216. 7D45D '' ALG_INV(LAM&1^2+1)
  17217. 7D485 #  <7D421h>
  17218. 7D499 {} { ALG_INV(1-LAM&1^2) {} INV1-^2imp {} }
  17219. 7D49E '' ALG_INV(1-LAM&1^2)
  17220. 7D4CB :: INV1-2^imp
  17221. 7D4DF '' ALG_ATANH(LAM&1)
  17222. 7D50C :: INTGSQ
  17223. 7D516 {}
  17224. 7D520 {} { ALG_SQ(LAM&1) {} SQimp {} }
  17225. 7D525 '' ALG_SQ(LAM&1)
  17226. 7D53E :: SQimp
  17227. 7D54D '' ALG_LAM&1^3/3
  17228. 7D58E :: INTGSQRT
  17229. 7D598 {}
  17230. 7D5A2 {} { ALG_INV(SQRT(1-LAM&1^2)) {} ISQRT1-^2imp {} }
  17231. 7D5A7 '' ALG_INV(SQRT(1-LAM&1^2))
  17232. 7D5D9 :: ISQRT1-^2imp
  17233. 7D5E8 '' ALG_ASIN(LAM&1)
  17234. 7D60B {} { ALG_INV(SQRT(1+LAM&1^2)){} ISQRT1+^2imp {} }
  17235. 7D610 '' ALG_INV(SQRT(1+LAM&1^2))
  17236. 7D642 :: ISQRT1+^2imp
  17237. 7D651 '' ALG_ASINH(LAM&1)
  17238. 7D674 {} { ALG_INV(SQRT(LAM&1^2+1)) {} #7D642 {} }
  17239. 7D679 `` ALG_INV(SQRT(LAM&1^2+1))
  17240. 7D6AB #  <7D642h>
  17241. 7D6BF {} { ALG_INV(SQRT(1+LAM&1))*INV(SQRT(-1+LAM&1)) {} SQRTs1imp {} }
  17242. 7D6C4 '' ALG_INV(SQRT(1+LAM&1))*INV(SQRT(-1+LAM&1))
  17243. 7D70A :: SQRTs1imp
  17244. 7D719 '' ALG_ACOSH(LAM&1)
  17245. 7D73C {} { ALG_INV(SQRT(LAM&1-1)*SQRT(LAM&1+1)) {} #7D70A {} }
  17246. 7D741 '' ALG_INV(SQRT(LAM&1-1)*SQRT(LAM&1+1))
  17247. 7D782 #  <7D70Ah>
  17248. 7D796 {} { ALG_SQRT(LAM&1) {} SQRTimp {} }
  17249. 7D7A0 '' ALG_SQRT(LAM&1)
  17250. 7D7B4 :: SQRTimp
  17251. 7D7C3 '' ALG_(2*LAM&1^3/2)/3
  17252. 7D809 {} { ALG_INV(SQRT(LAM&1)) {} ISQRTimp {} }
  17253. 7D80E '' ALG_INV(SQRT(LAM&1))
  17254. 7D82C :: ISQRTimp
  17255. 7D83B '' ALG_2*SQRT(LAM&1)
  17256. 7D877 :: INTGSIGN
  17257. 7D881 {}
  17258. 7D88B {} { ALG_SIGN(LAM&1) {} SIGNimp {} }
  17259. 7D890 '' ALG_SIGN(LAM&1)
  17260. 7D8A9 :: SIGNimp
  17261. 7D8B8 '' ALG_ABS(LAM&1)
  17262. 7D8EA :: INTGDER
  17263. 7D92B ::
  17264. 7D9DF :: MAKEDER
  17265. 7DA20 :: MAKEINTG
  17266. 7DA6B :: MAKESUM
  17267. 7DAC5 :: MAKEIFTE
  17268. 7DAE8 ::
  17269. 7DB15 :: MAKEQUOTE
  17270. 7DB42 :: MAKEAPPLY
  17271. 7DB9C ::
  17272. 7DBBF {} RULES1
  17273. 7DBBF @  { <-T T-> <-M M-> AF <--> (<- ->) <-A A-> (()) -() }
  17274. 7DC05 {} RULES2
  17275. 7DC05 @  { <-T T-> <-M M-> <-D ->D (<- ->) <-A A-> <--> (()) -() 1/() L() }
  17276. 7DC5A {} RULES3
  17277. 7DC5A @  { 1/() E() <-D D-> <-A ->A }
  17278. 7DC82 {} RULES4
  17279. 7DC82 @  { 1/() E^ ->TRG D-> }
  17280. 7DCA0 {} RULES5
  17281. 7DCA0 @  { -() L* NullMenuKey D-> }
  17282. 7DCBE {} RULES6
  17283. 7DCBE @  { ->() }
  17284. 7DCCD {} RULES7
  17285. 7DCCD @  { <-T ->T }
  17286. 7DCE1 {} RULES8
  17287. 7DCE1 @  { ->() }
  17288. 7DCF0 {} RULES9
  17289. 7DCF0 @  { ->DEF TRG* }
  17290. 7DD04 {} RULES10
  17291. 7DD04 @  { ->DEF }
  17292. 7DD13 :: WHEREAPPLY
  17293. 7DD63 :: DROP(4)SWAP#1-
  17294. 7DD7C :: DROP(3,4)SWAP#2-
  17295. 7DDA4 :: WHEREDER
  17296. 7DDDB :: WHEREIFTE
  17297. 7DE99 :: WHEREWHERE
  17298. 7DEE4 ::
  17299. 7DF4D :: WHEREINTG
  17300. 7E029 :: WHERESUM
  17301. 7E128 :: XLIB240_0 M^T->
  17302. 7E14B ::
  17303. 7E178 ::
  17304. 7E1C3 :: XLIB240_1 M^<-T
  17305. 7E1E6 ::
  17306. 7E21D ::
  17307. 7E272 :: XLIB240_2  M/+AF M/-AF
  17308. 7E29A xl XLIB_240_3
  17309. 7E2CD :: XLIB240_3
  17310. 7E327 :: XLIB240_4  M/o+AF M/o-AF
  17311. 7E372 :: XLIB240_5  M+<-->
  17312. 7E38B :: XLIB240_6  M-<-->
  17313. 7E3B3 :: XLIB240_7  M*<-->
  17314. 7E3CC :: XLIB240_8  M/<-->
  17315. 7E3F4 :: XLIB240_9  M+-<-A
  17316. 7E40D :: XLIB240_10 M--<-A
  17317. 7E426 :: XLIB240_11 M*/<-A
  17318. 7E43F :: XLIB240_12 M//<-A
  17319. 7E458 :: XLIB240_13 M*^<-A
  17320. 7E476 :: XLIB240_14 M-o+A->
  17321. 7E48F :: XLIB240_15 M-o-A->
  17322. 7E4A8 :: XLIB240_16 M/o*A->
  17323. 7E4C1 :: XLIB240_17 M/o/A->
  17324. 7E4C1 :: XLIB240_18 M^^A->
  17325. 7E4DA :: XLIB240_19 M+/D->
  17326. 7E4DA :: XLIB240_20 M-/D->
  17327. 7E502 :: XLIB240_21 M+^D->
  17328. 7E51B :: XLIB240_22 M-^D->
  17329. 7E534 :: XLIB240_23 M+EXPD-> M+ALOGD->
  17330. 7E54D :: XLIB240_24 M-EXPD-> M-ALOGD->
  17331. 7E566 :: XLIB240_25 M*LND-> M*LOGD->
  17332. 7E57F :: XLIB240_26 M/LND-> M/LOGD->
  17333. 7E598 :: XLIB240_27 M*NEG->()
  17334. 7E598 :: XLIB240_28 M/NEG->()
  17335. 7E5AC :: XLIB240_29 MLNNEG->() MLOGNEG->()
  17336. 7E5C5 :: XLIB240_30 M^INV->()
  17337. 7E5C5 :: XLIB240_31 MEXPINV->() MALOGINV->()
  17338. 7E5ED :: XLIB240_32 M*1/()
  17339. 7E606 :: XLIB240_33 M/1/()
  17340. 7E61F :: XLIB240_34 M^1/()
  17341. 7E61F :: XLIB240_35 MEXP1/() MALOG1/()
  17342. 7E647 :: XLIB240_36 MLN-() MLOG-()
  17343. 7E65B :: XLIB240_37 M*-()
  17344. 7E65B :: XLIB240_38 M/-()
  17345. 7E66F :: XLIB240_39 M+-()
  17346. 7E683 :: XLIB240_40 M--()
  17347. 7E697 :: XLIB240_41 M*EXPE^ M*ALOGE^
  17348. 7E6B0 :: XLIB240_42 M/EXPE^ M/ALOGE^
  17349. 7E6D3 :: XLIB240_43 MEXPo^E() MALOGo^E()
  17350. 7E6EC :: XLIB240_44 M^LNL* M^LOGL*
  17351. 7E705 :: XLIB240_45 MLNo*L() MLOGo*L()
  17352. 7E723 :: XLIB240_46 MLNo/L() MLOGo/L()
  17353. 7E74B :: XLIB240_47 M*+<-M M/*<-M M+<-M
  17354. 7E74B :: XLIB240_48 M*-<-M M/-<-M M-<-M
  17355. 7E764 ::
  17356. 7E787 :: XLIB240_49
  17357. 7E791 xl XLIB_240_50
  17358. 7E7A1 ::
  17359. 7E7A6 xl XLIB_240_51
  17360. 7E7B1 xl XLIB_240_50
  17361. 7E7D0 xl XLIB_240_50
  17362. 7E7E0 :: XLIB240_50
  17363. 7E7EF ::
  17364. 7E812 :: XLIB240_51
  17365. 7E82B :: XLIB240_52 M^*<-M
  17366. 7E84E :: XLIB240_53 M^/<-M
  17367. 7E871 :: XLIB240_54 MEXP*<-M MALOG*<-M
  17368. 7E88A :: XLIB240_55 MEXP/<-M MALOG/<-M
  17369. 7E8A3 :: XLIB240_56 MLN+<-M MLOG+<-M
  17370. 7E8BC :: XLIB240_57 MLN-<-M MLOG-<-M
  17371. 7E8D5 :: XLIB240_58 M*oo*+M-> M*oo*-M-> M/oo/+M-> M/oo/-M-> M^oo^/M-> M^oo^/M->
  17372. 7E8EE :: XLIB240_59 
  17373. 7E943 :: XLIB240_60 
  17374. 7E998 :: XLIB240_61 M+<-T M-<-T
  17375. 7E9C0 :: XLIB240_62
  17376. 7E9E8 :: XLIB240_63 M+(<- M-(<-
  17377. 7EA3D ::
  17378. 7EAA1 :: XLIB240_64 M*(<- M/(<-
  17379. 7EAF6 ::
  17380. 7EB5A :: XLIB240_65 M+(()) M-(())
  17381. 7EBAF ::
  17382. 7EC13 :: XLIB240_66 M*(()) M/(())
  17383. 7EC68 ::
  17384. 7ECCC :: XLIB240_67
  17385. 7ED67 :: XLIB240_68
  17386. 7EE02 :: XLIB240_69 M+CONJ->() (-,*,/,NEG,INV,EXP,SQ CONJ too)
  17387. 7EE02 :: XLIB240_70 M+RE->() M-RE->() MNEGRE->()
  17388. 7EE02 :: XLIB240_71 M+IM->() M-IM->() MNEGIM->()
  17389. 7EE5C :: XLIB240_72
  17390. 7EEC0 :: XLIB240_73 MEXP->TRG
  17391. 7EF0B :: XLIB240_74 MSIN->DEF
  17392. 7EF33 {} { - 2 i * / }
  17393. 7EF60 :: XLIB240_75 MCOS->DEF
  17394. 7EF88 {} { + 2  / }
  17395. 7EFAB :: XLIB240_76 MTAN->DEF
  17396. 7EFBA {} { 2 * EXP 1 - }
  17397. 7EFF1 {} { i * / }
  17398. 7F014 :: XLIB240_77 MASIN->DEF
  17399. 7F023 {} { i NEG 1 }
  17400. 7F055 {} { * + LN * }
  17401. 7F082 :: XLIB240_78 MACOS->DEF
  17402. 7F091 {} { PI 2 / i 1 }
  17403. 7F0CD {} { * + LN * + }
  17404. 7F0FF :: XLIB240_79 MATAN->DEF
  17405. 7F10E {} { i NEG 1 i }
  17406. 7F136 {} { * + 1 }
  17407. 7F159 {} { 2 ^ + SQRT / LN * }
  17408. 7F195 :: XLIB240_80 MSINH->DEF
  17409. 7F1A4 {} { i * SIN i * NEG }
  17410. 7F1D6 :: XLIB240_81 MCOSH->DEF
  17411. 7F1E5 {} { i * COS }
  17412. 7F208 :: XLIB240_82 MTANH->DEF
  17413. 7F217 {} { i * TAN i NEG * }
  17414. 7F249 :: XLIB240_83 MASINH->DEF
  17415. 7F262 {} { 2 ^ + SQRT }
  17416. 7F28F {} { - LN NEG }
  17417. 7F2B2 :: XLIB240_84 MACOSH->DEF
  17418. 7F2C1 {} { PI 2 / i 1 }
  17419. 7F2FD {} { * + LN * + 2 ^ NEG SQRT }
  17420. 7F33E :: XLIB240_85 MATANH->DEF
  17421. 7F370 {} { 2 ^ - SQRT / LN NEG }
  17422. 7F3A7 :: XLIB240_86 M+SINTRG* M-SINTRG*
  17423. 7F41F :: XLIB240_87 M+COSTRG* M-COSTRG*
  17424. 7F4B5 :: XLIB240_88 M+TANTRG* M-TANTRG*
  17425. 7F4FB ::
  17426. 7F528 :: XLIB240_89 M+SINHTRG* M-SINHTRG*
  17427. 7F5A0 :: XLIB240_90 M+COSHTRG* M-COSHTRG*
  17428. 7F618 :: XLIB240_91 M+TANHTRG* M-TANHTRG*
  17429. 7F663 :: XLIB240_92
  17430. 7F6A4 :: 
  17431. 7F6D1 :: XLIB240_93
  17432. 7F6D6 xl XLIB_240_94
  17433. 7F6E6 :: 
  17434. 7F709 :: XLIB240_94
  17435. 7F713 ::
  17436. 7F73B ::
  17437. 7F75E ::
  17438. 7F78B ::
  17439. 7F7BD :: XLIB240_95
  17440. 7F7D6 ::
  17441. 7F803 :: XLIB240_96
  17442. 7F81C ::
  17443. 7F821 xl XLIB_240_97
  17444. 7F840 :: 
  17445. 7F845 xl XLIB_240_97
  17446. 7F864 ::
  17447. 7F869 xl XLIB_240_97
  17448. 7F888 ::
  17449. 7F88D xl XLIB_240_97
  17450. 7F8B6 :: XLIB240_97
  17451. 7F8C5 ::
  17452. 7F8CF ::
  17453. 7F8FC ::
  17454. 7F924 :: XLIB240_98
  17455. 7F951 :: XLIB240_99
  17456. 7F979 :: 
  17457. 7F9A6 :: XLIB240_100
  17458. 7FA15 ::
  17459. 7FA65 :: XLIB240_101
  17460. 7FAC4 ::
  17461. 7FB23 :: XLIB240_102
  17462. 7FB5F :: 
  17463. 7FBD2 :: XLIB240_103
  17464. 7FBE1 xl XLIB_240_106
  17465. 7FBFB xl XLIB_240_105
  17466. 7FC06 xl XLIB_240_104
  17467. 7FC16 :: XLIB240_104
  17468. 7FC25 ::
  17469. 7FC3E xl XLIB_240_98
  17470. 7FC4E :: XLIB240_105
  17471. 7FC6C xl XLIB_240_104
  17472. 7FC90 xl XLIB_240_98
  17473. 7FCA0 :: XLIB240_106
  17474. 7FCB4 ::
  17475. 7FCBE xl XLIB_240_103
  17476. 7FCDD ::
  17477. 7FCE7 xl XLIB_240_103
  17478. 7FD06 ::
  17479. 7FD10 xl XLIB_240_103
  17480. 7FD39 :: XLIB240_107
  17481. 7FD48 xl XLIB_240_108
  17482. 7FD53 xl XLIB_240_103
  17483. 7FD6D :: XLIB240_108
  17484. 7FD81 ::
  17485. 7FD8B xl XLIB_240_107
  17486. 7FDAA ::
  17487. 7FDB4 xl XLIB_240_107
  17488. 7FDD3 ::
  17489. 7FDDD xl XLIB_240_107
  17490. 7FE06 :: XLIB240_109  PORTPurge
  17491. 7FE06 @  (2:ID/LAM/#libnum 1:#-1,#0,#1 or #2)
  17492. 7FE15 xl XLIB_240_110
  17493. 7FE2A :: 
  17494. 7FE48 :: XLIB240_110  PORTPURGE
  17495. 7FE48 @  (1:ID/LAM/#libnum) (Looks in every port)
  17496. 7FE5C ::
  17497. 7FE66 xl XLIB_240_109
  17498. 7FE85 ::
  17499. 7FE8F xl XLIB_240_109
  17500. 7FEAE ::
  17501. 7FEB8 xl XLIB_240_109
  17502. 7FEE1 :: XLIB240_111
  17503. 7FF14 ::
  17504. 7FF19 ::
  17505. 7FF64 ::
  17506.  
  17507.  
  17508. JstGETTHEMESG messages:
  17509.  
  17510. #001 "Insufficient Memory"
  17511. #002 "Directory Recursion"
  17512. #003 "Undefined Local Name"
  17513. #004 "Undefined XLIB Name"
  17514. #005 "Memory Clear"
  17515. #006 "Power Lost"
  17516. #007 "Warning:"
  17517. #008 "Invalid Card Data"
  17518. #009 "Object In Use"
  17519. #00A "Port Not Available"
  17520. #00B "No Room in Port"
  17521. #00C "Object Not in Port"
  17522. #00D "Recovering Memory"
  17523. #00E "Try To Recover Memory?"
  17524. #00F "Replace RAM, Press ON"
  17525. #010 "No Mem To Config All"
  17526. #101 "No Room to Save Stack"
  17527. #102 "Can't Edit Null Char."
  17528. #103 "Invalid User Function"
  17529. #104 "No Current Equation"
  17530. #106 "Invalid Syntax"
  17531. #107 "Real Number"
  17532. #108 "Complex Number"
  17533. #109 "String"
  17534. #10A "Real Array"
  17535. #10B "Complex Array"
  17536. #10C "List"
  17537. #10D "Global Name"
  17538. #10E "Local Name"
  17539. #10F "Program"
  17540. #110 "Algebraic"
  17541. #111 "Binary Integer"
  17542. #112 "Graphic"
  17543. #113 "Tagged"
  17544. #114 "Unit"
  17545. #115 "XLIB Name"
  17546. #116 "Directory"
  17547. #117 "Library"
  17548. #118 "Backup"
  17549. #119 "Function"
  17550. #11A "Command"
  17551. #11B "System Binary"
  17552. #11C "Long Real"
  17553. #11D "Long Complex"
  17554. #11E "Linked Array"
  17555. #11F "Character"
  17556. #120 "Code"
  17557. #121 "Library Data"
  17558. #122 "External"
  17559. #124 "LAST STACK Disabled"
  17560. #125 "LAST CMD Disabled"
  17561. #126 "HALT Not Allowed"
  17562. #127 "Array"
  17563. #128 "Wrong Argument Count"
  17564. #129 "Circular Reference"
  17565. #12A "Directory Not Allowed"
  17566. #12B "Non-Empty Directory"
  17567. #12C "Invalid Definition"
  17568. #12D "Missing Library"
  17569. #12E "Invalid PPAR"
  17570. #12F "Non-Real Result"
  17571. #130 "Unable to Isolate"
  17572. #131 "No Room to Show Stack"
  17573. #132 "Warning:<LF>"
  17574. #133 "Error:"
  17575. #134 "Purge?"
  17576. #135 "Out of Memory"
  17577. #136 "Stack"
  17578. #137 "Last Stack"
  17579. #138 "Last Commands"
  17580. #139 "Key Assignments"
  17581. #13A "Alarms"
  17582. #13B "Last Arguments"
  17583. #13C "Name Conflict"
  17584. #13D "Command Line"
  17585. #201 "Too Few Arguments"
  17586. #202 "Bad Argument Type"
  17587. #203 "Bad Argument Value"
  17588. #204 "Undefined Name"
  17589. #205 "LASTARG Disabled"
  17590. #206 "Incomplete<LF>Subexpression"
  17591. #207 "Implicit () off"
  17592. #208 "Implicit () on"
  17593. #301 "Positive Underflow"
  17594. #302 "Negative Underflow"
  17595. #303 "Overflow"
  17596. #304 "Undefined Result"
  17597. #305 "Infinite Result"
  17598. #501 "Invalid Dimension"
  17599. #502 "Invalid Array Element"
  17600. #503 "Deleting Row"
  17601. #504 "Deleting Column"
  17602. #505 "Inserting Row"
  17603. #506 "Inserting Column"
  17604. #601 "Invalid SIGMA Data"
  17605. #602 "Nonexistent SIGMADAT"
  17606. #603 "Insufficient SIGMA Data"
  17607. #604 "Invalid SIGMAPAR"
  17608. #605 "Invalid SIGMA Data LN(Neg)"
  17609. #606 "Invalid SIGMA Data LN(0)"
  17610. #607 "Invalid EQ"
  17611. #608 "Current equation:"
  17612. #609 "No current equation."
  17613. #60A "Enter eqn, press NEW"
  17614. #60B "Name the equation,<LF>press ENTER"
  17615. #60C "Select plot type"
  17616. #60D "Empty catalog"
  17617. #60E "undefined"
  17618. #60F "No stat data to plot"
  17619. #610 "Autoscaling"
  17620. #611 "Solving for "
  17621. #612 "No current data. Enter"
  17622. #613 "data point, press SIGMA+"
  17623. #614 "Select a model"
  17624. #615 "No alarms pending."
  17625. #616 "Press ALRM to create"
  17626. #617 "Next alarm:"
  17627. #618 "Past due alarm:"
  17628. #619 "Acknowledged"
  17629. #61A "Enter alarm, press SET"
  17630. #61B "Select repeat interval"
  17631. #61C "    I/O setup menu"
  17632. #61D "Plot type: "
  17633. #61E """"
  17634. #61F " (OFF SCREEN)"
  17635. #620 "Invalid PTYPE"
  17636. #621 "Name the stat data,<LF>press ENTER"
  17637. #622 "Enter value (zoom out<LF>if >1), press ENTER"
  17638. #623 "Copied to stack"
  17639. #624 "x axis zoom w/AUTO.<LF>"
  17640. #625 "x axis zoom.<LF>"
  17641. #626 "y axis zoom.<LF>"
  17642. #627 "x and y axis zoom.<LF>"
  17643. #628 "IR/wire:       "
  17644. #629 "ASCII/binary   "
  17645. #62A "baud:          "
  17646. #62B "parity:        "
  17647. #62C "checksum type: "
  17648. #62D "translate code:"
  17649. #62E "Enter matrix, then NEW"
  17650. #A01 "Bad Guess(es)"
  17651. #A02 "Constant?"
  17652. #A03 "Interrupted"
  17653. #A04 "Zero"
  17654. #A05 "Sign Reversal"
  17655. #A06 "Extremum"
  17656. #B01 "Invalid Unit"
  17657. #B02 "Inconsisting Units"
  17658. #C01 "Bad Packet Block Check"
  17659. #C02 "Timeout"
  17660. #C03 "Receive Error"
  17661. #C04 "Receive Buffer Overrun"
  17662. #C05 "Parity Error"
  17663. #C06 "Transfer Failed"
  17664. #C07 "Protocol Error"
  17665. #C08 "Invalid Server Cmd."
  17666. #C09 "Port Closed"
  17667. #C0A "Connecting"
  17668. #C0B "Retry #"
  17669. #C0C "Awaiting Server Cmd."
  17670. #C0D "Sending "
  17671. #C0E "Receiving "
  17672. #C0F "Object Discarded"
  17673. #C10 "Packet #"
  17674. #C11 "Processing Command"
  17675. #C12 "Invalid IOPAR"
  17676. #C13 "Invalid PRTPAR"
  17677. #C14 "Low battery"
  17678. #C15 "Empty Stack"
  17679. #C16 "Row "
  17680. #C17 "Invalid Name"
  17681. #D01 "Invalid Date"
  17682. #D02 "Invalid Time"
  17683. #D03 "Invalid Repeat"
  17684. #D04 "Nonexistent Alarm"
  17685. END_MISC
  17686.